[LSK]

Сперва создаешь само соединение (в Windows ' е) затем:

Код:

Procedure DialUp(Connect:boolean);
var par: PChar;
begin
  If Connect then par := PChar('Имя соединения} {Логин} {Пароль}') else
  par := PChar('{Имя соединения} /DISCONNECT');
  ShellExecute(Frm1.Handle, 'open', 'rasdial.exe', par, 'C:', SW_SHOWMINNOACTIVE);
end;