[DungeonLords]

Сделаем так(может не работать)

Код:

VAR con_str:PChar;
begin
con_str:=PChar({Имя соединения}+'/DISCONNECT');
ShellExecute(Self.Handle,'open','rasdial.exe', con_str,'C:',SW_ShowMinNoActive);
end;