LAN Web TCP Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(PChar('rundll32.exernaui.dll,RnaDial '+Edit1.Text),sw_show);
end;