Como conectar uma unidade de rede no Delphi

Procedure TForm1.Button1Click(Sender: TObject);
var
NRW: TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := ‘G:’;
lpRemoteName := ‘\servidorc’;
lpProvider := ”;
end;
WNetAddConnection2(NRW, ‘MyPassword’, ‘MyUserName’, CONNECT_UPDATE_PROFILE);
end;