procedure TForm1.Button1Click(Sender: TObject);
var
  s: PChar;
  h: HWND;
begin
ShellExecuteA(0,'open','rasphone.exe',nil,nil, 0);
h:=0;
while h=0 do begin
h  :=  FindWindow('#32770','Ñåòåâûå ïîäêëþ÷åíèÿ');
application.ProcessMessages;
end;
SendMessage(h,  WM_SYSCOMMAND,  SC_HOTKEY,  h);
   keybd_event(VK_Return, 0, 0, 0);
   keybd_event(VK_Return, 0, KeyEventF_KeyUp, 0);
   Sleep(100);
   keybd_event(VK_Return, 0, 0, 0);
   keybd_event(VK_Return, 0, KeyEventF_KeyUp, 0);
   ShowWindow(h,0);
end;
end.