procedure Form1.Baglan(Entry, User, Pass:string);
begin
  ShellExecute(Self.Handle, 'open', 'rasdial.exe',
    PChar(Entry + ' ' + User + ' ' + Pass),
    'C:', SW_SHOWMINNOACTIVE);
end;
procedure Form1.Kes(Entry:string);
begin
  ShellExecute(Self.Handle, 'open', 'rasdial.exe',
    PChar(Entry + ' /DISCONNECT'), 'C:', SW_SHOWMINNOACTIVE);
end;
Entry = bağlantı adı
User  = kullanıcı adı
Pass  = parola
Örnek : Baglan('E-Kol', 'birisi', 'elma23');    Kes('E-Kol');