Opkald via modem

Kode 

PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;  
   CommPort := 'COM2';
  hCommFile := CreateFile(PChar(CommPort),
                          GENERIC_WRITE,
                          0,
                          nil,
                          OPEN_EXISTING,
                          FILE_ATTRIBUTE_NORMAL,
                          0);
  WriteFile(hCommFile,
            PChar(PhoneNumber)^,
            Length(PhoneNumber),
            NumberWritten,
            nil);
   str := 'Besked';
   writefile(hCommFile, pchar(str), length(str), numberwritten, nil);
   CloseHandle(hCommFile);