Передача сообщения в порт - 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;