procedure TForm1.Button6Click(Sender: TObject);
var
MSetup : TRasDialParams;
RasConn : THandle;
// NotifierType : Dword;
begin
MSetup.UserName := 'xxx';
MSetup.PhoneNumber := '9w999999';
MSetup.Password := 'xxxx';
{ RasDial(RasDialExtensions : Pointer; PhoneBook : Pointer;
var RasDialParams : TRasDialParams; NotifierType : DWORD;
Notifier : Pointer; var RasConn : THandle);{}
RasDial(nil,nil,MSetup,0,nil,RasConn);
end;

NO voobshe ya potom plunul i stal ispolzovat` componenti tipa RAS, Magenta RAS