[CynicRus]

Код:

function Write(const Buffer: array of Byte;
 NumberOfBytesToWrite: Cardinal): Cardinal;
begin
 Result := 0;
 if FPortHandle <> INVALID_HANDLE_VALUE then
 begin
   WriteFile(hPort, Buffer, NumberOfBytesToWrite, Cardinal(Result),
     @OverlappedWrite);
 end;
end;

Где OverlappedWrite - TOverlapped.
Соответствтенно забиваешь свои в массив байт и высылаешь в порт.