Używam standardowych funkcji i procedur obsługi portu.
Poniżej zamieszczam jedynie fragmenty kodu, to co pamiętam (nie mam go przy sobie).
</delphi>
var
query:Pchar=chr($aa)+chr($33)+chr($62)+chr($00)+chr($00)+chr($00)+chr($00)+chr($01)+chr($02)+chr($03);
function TForm1. Write_Comm(hCommDev: THANDLE; nNumberOfBytesToWrite: DWORD): Integer;
var NumberOfBytesWritten: DWORD;
begin
//---------------------Zapis danych do bufora wyjściowego-----------------------
WriteFile(hCommDev, Buffer_O, nNumberOfBytesToWrite, NumberOfBytesWritten, NIL);
if (WaitCommEvent(hCommDev,fdwEvtMask, NIL)=TRUE) Then
Write_Comm:=1
Else
Write_Comm:=0;
end;
procedure TF_Wazenie.SpeedButton10Click(Sender: TObject);
begin
StrCopy(Buffer_O,query);
Repeat
FlushFileBuffers(hCommDev);
Until (Form1.Write_Comm(hCommDev, StrLen(Buffer_O))<>0);
end;</delphi>
Za wszelką pomoc serdecznie dziękuję.