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