LAN Web TCP Delphi

Title: How to map a network drive
procedure TForm1.Button1Click(Sender: TObject);
begin
// Shows the 'connect network drive' dialog
if WNetConnectionDialog(Handle, RESOURCETYPE_DISK) = NO_ERROR then
begin
// Do something
end;
end;