procedure TForm1.Button1Click(Sender: TObject);

  f: THandle;                           // хендл порта

  WriteData: string;                    // буфер для передаваемых в порт данные

  ReadData: array[0..MAXSHORT] of char; // буфер для полученных данных

  ActSize: cardinal;                    // число фактически переданных байт

  // допустим, что модем подключен к третьему COM-порту

  f := CreateFile('\\.\COM3',                     // lpFileName            <- имя открываемого порта

                  GENERIC_READ or GENERIC_WRITE,  // dwDesiredAccess       <- режим доступа к порту (чтение и запись)

                  0,                              // dwShareMode           <- не используется

                  nil,                            // lpSecurityAttributes  <- не используется

                  OPEN_EXISTING,                  // dwCreationDisposition <- открыть существующий

                  0,                              // dwFlagsAndAttributes  <- не используется

                  0);                             // hTemplateFile         <- не используется

  if f = INVALID_HANDLE_VALUE then  // не удалось открыть

  begin

    ShowMessage('Не удается открыть порт.');

  end;

 

  try

    WriteData := 'ATI3'#13#10;      // команда для определения модели модема

    // передаем данные в порт

    if WriteFile(f,                 // hFile                  <- хендл порта, полученный с помощью createFile

                 PChar(WriteData)^, // Buffer                 <- передаваемые в порт данные

                 Length(WriteData), // nNumberOfBytesToWrite  <- число байт для передачи

                 ActSize,           // lpNumberOfBytesWritten <- указатель для получения числа фактически переданных байт

                 nil)               // lpOverlapped           <- не используется

    then

    begin

      // получаем ответ

      ReadFile(f,         // hFile                <- хендл порта, полученный с помощью createFile

               ReadData,  // Buffer               <- буфер для полученных данных

               MAXSHORT,  // nNumberOfBytesToRead <- размер буфера

               ActSize,   // lpNumberOfBytesRead  <- указатель для получения числа фактически полученных байт

               nil);      // lpOverlapped         <- не используется

      ShowMessage(ReadData);

    end

    else

      ShowMessage('Не удается отправить команду.');

  finally

    CloseHandle(f); // закрываем хэндл порта

  end

end;