Передача сообщения в порт - Visual Basic .NET

Формулировка задачи:

lpOVERLAPPED - имя экземпляра структуры:

    Public Structure OVERLAPPED  
        Public Internal As Int32
        Public InternalHigh As Int32
        Public Offset As Int32
        Public OffsetHigh As Int32
        Public hEvent As Int32  
    End Structure
    Public lpOVERLAPPED As OVERLAPPED

выражение @lpOVERLAPPED передаётся в функцию как параметр:

WriteFile(port, S, Length(S), DWORD(n), @lpOVERLAPPED );

port - дескриптор com-порта S - строка символов n - количество передаваемых байт

Решение задачи: «Передача сообщения в порт»

textual
                            Листинг программы 
                        

                            //запись сообщения в порт
procedure TForm1.Button2Click(Sender: TObject);
var S: string;
    n: integer;
begin
  S:= 'Это передаваемый текст';
  FlushFileBuffers(portHandle);  //очищаем буфер порта
  WriteFile(portHandle, S, Length(S), DWORD(n), @lpOVERLAPPED);
  //проверяем отсутствие ошибки
  if GetLastError <> ERROR_IO_PENDING then  ShowMessage('Ошибка')
    else Timer1.Enabled:= true;
end;
                        