ComPort.Write(Str[1], Length(Str)); // no defined type

35	0.00002738	Project1.exe	IRP_MJ_WRITE	Serial0	SUCCESS	Length 5: Sx1..	
36	0.02828069	Project1.exe	IOCTL_SERIAL_WAIT_ON_MASK	Serial0	SUCCESS		
37	0.00000475	Project1.exe	IOCTL_SERIAL_GET_COMMSTATUS	Serial0	SUCCESS		
38	0.00000363	Project1.exe	IRP_MJ_READ	Serial0	SUCCESS	Length 8:         	
39	0.00000196	Project1.exe	IOCTL_SERIAL_GET_COMMSTATUS	Serial0	SUCCESS		
40	0.00000447	Project1.exe	IOCTL_SERIAL_WAIT_ON_MASK	Serial0	SUCCESS		
41	0.00000223	Project1.exe	IOCTL_SERIAL_GET_COMMSTATUS	Serial0	SUCCESS		
42	0.00803454	Project1.exe	IOCTL_SERIAL_WAIT_ON_MASK	Serial0	SUCCESS		
43	0.00000419	Project1.exe	IOCTL_SERIAL_GET_COMMSTATUS	Serial0	SUCCESS		
44	0.00000363	Project1.exe	IRP_MJ_READ	Serial0	SUCCESS	Length 8:  0 kg ..	

ComPort.ReadStr(str, 8);

49	0.00000531	Project1.exe	IRP_MJ_READ	Serial0	SUCCESS	Length 0: 	
50	0.00000279	Project1.exe	IOCTL_SERIAL_GET_COMMSTATUS	Serial0	SUCCESS	

function OpenCOMPort: Boolean;
var
  DeviceName: array[0..80] of Char;
  ComFile: THandle;
begin
   { First step is to open the communications device for read/write.
     This is achieved using the Win32 'CreateFile' function.
     If it fails, the function returns false.    
   }

  StrPCopy(DeviceName, 'COM1:');

  ComFile := CreateFile(DeviceName,
    GENERIC_READ or GENERIC_WRITE,
    0,
    nil,
    OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL,
    0);

  if ComFile = INVALID_HANDLE_VALUE then
    Result := False
  else
    Result := True;
end;


function SetupCOMPort: Boolean;
const
  RxBufferSize = 256;
  TxBufferSize = 256;

var
  DCB: TDCB;
  Config: string;
  CommTimeouts: TCommTimeouts;
begin
   { We assume that the setup to configure the setup works fine.
     Otherwise the function returns false.   
   }

  Result := True;

  if not SetupComm(ComFile, RxBufferSize, TxBufferSize) then
    Result := False;

  if not GetCommState(ComFile, DCB) then
    Result := False;

  // define the baudrate, parity,...

   
  Config := 'baud=9600 parity=n data=8 stop=1';

  if not BuildCommDCB(@Config[1], DCB) then
    Result := False;

  if not SetCommState(ComFile, DCB) then
    Result := False;

  with CommTimeouts do
  begin
    ReadIntervalTimeout         := 0;
    ReadTotalTimeoutMultiplier  := 0;
    ReadTotalTimeoutConstant    := 1000;
    WriteTotalTimeoutMultiplier := 0;
    WriteTotalTimeoutConstant   := 1000;
  end;

  if not SetCommTimeouts(ComFile, CommTimeouts) then
    Result := False;
end;

{
  The following is an example of using the 'WriteFile' function
  to write data to the serial port.
}

procedure SendText(s: string);
var
  BytesWritten: DWORD;
begin
   { Add a word-wrap (#13 + #10) to the string   }

  s := s + #13 + #10;
  WriteFile(ComFile, s[1], Length(s), BytesWritten, nil);
end;

{
  The following is an example of using the 'ReadFile' function to read
  data from the serial port.
}

function ReadText: string;
var
  d: array[1..80] of Char;
  s: string;
  BytesRead, i: cardinal;
begin
  Result := '';
  if not ReadFile(ComFile, d, SizeOf(d), BytesRead, nil) then
  begin
    { Raise an exception }
  end;
  s := '';
  for i := 1 to BytesRead do s := s + d[I];
  Result := s;
end;


procedure CloseCOMPort;
begin
  // finally close the COM Port! 
  CloseHandle(ComFile);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  OpenCOMPort;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  SendText(Edit1.Text)
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  memo4.Text := ReadText;
end;

begin
  Result := SetupComm(ComFile, RxBufferSize, TxBufferSize) and GetCommState(ComFile, DCB);

  Config := 'baud=9600 parity=n data=8 stop=1';

  Result := Result and (BuildCommDCB(@Config[1], DCB) and SetCommState(ComFile, DCB));

  with CommTimeouts do
  begin
    ReadIntervalTimeout         := 0;
    ReadTotalTimeoutMultiplier  := 0;
    ReadTotalTimeoutConstant    := 1000;
    WriteTotalTimeoutMultiplier := 0;
    WriteTotalTimeoutConstant   := 1000;
  end;

  Result := Result and SetCommTimeouts(ComFile, CommTimeouts);
end;

45	0.00004386	Komunikacja.exe	IRP_MJ_CREATE	Serial0	SUCCESS	Options: Open 	
46	0.00000251	Komunikacja.exe	IOCTL_SERIAL_SET_QUEUE_SIZE	Serial0	SUCCESS	InSize: 1024 OutSize: 1024	
47	0.00000140	Komunikacja.exe	IOCTL_SERIAL_GET_BAUD_RATE	Serial0	SUCCESS		
48	0.00000140	Komunikacja.exe	IOCTL_SERIAL_GET_LINE_CONTROL	Serial0	SUCCESS		
49	0.00000140	Komunikacja.exe	IOCTL_SERIAL_GET_CHARS	Serial0	SUCCESS		
50	0.00000140	Komunikacja.exe	IOCTL_SERIAL_GET_HANDFLOW	Serial0	SUCCESS		
51	0.00000838	Komunikacja.exe	IOCTL_SERIAL_SET_BAUD_RATE	Serial0	SUCCESS	Rate: 9600	
52	0.00000391	Komunikacja.exe	IOCTL_SERIAL_CLR_RTS	Serial0	SUCCESS		
53	0.00000419	Komunikacja.exe	IOCTL_SERIAL_CLR_DTR	Serial0	SUCCESS		
54	0.00000279	Komunikacja.exe	IOCTL_SERIAL_SET_LINE_CONTROL	Serial0	SUCCESS	StopBits: 1 Parity: NONE WordLength: 8	
55	0.00000140	Komunikacja.exe	IOCTL_SERIAL_SET_CHAR	Serial0	SUCCESS	EOF:88 ERR:0 BRK:0 EVT:0 XON:11 XOFF:13	
56	0.00000307	Komunikacja.exe	IOCTL_SERIAL_SET_HANDFLOW	Serial0	SUCCESS	Shake:0 Replace:0 XonLimit:256 XoffLimit:256	
57	0.00000140	Komunikacja.exe	IOCTL_SERIAL_SET_TIMEOUTS	Serial0	SUCCESS	RI:-1 RM:0 RC:0 WM:100 WC:1000	
58	0.00000363	Komunikacja.exe	IOCTL_SERIAL_SET_WAIT_MASK	Serial0	SUCCESS	Mask: RXCHAR RXFLAG TXEMPTY CTS DSR RLSD BRK ERR RING RX80FULL 

21	0.00004833	erp_stock.exe	IRP_MJ_CREATE	Serial0	SUCCESS	Options: Open 	
22	0.00000251	erp_stock.exe	IOCTL_SERIAL_SET_QUEUE_SIZE	Serial0	SUCCESS	InSize: 1024 OutSize: 1024	
23	0.00000196	erp_stock.exe	IOCTL_SERIAL_GET_BAUD_RATE	Serial0	SUCCESS		
24	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_LINE_CONTROL	Serial0	SUCCESS		
25	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_CHARS	Serial0	SUCCESS		
26	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_HANDFLOW	Serial0	SUCCESS		
27	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_BAUD_RATE	Serial0	SUCCESS		
28	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_LINE_CONTROL	Serial0	SUCCESS		
29	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_CHARS	Serial0	SUCCESS		
30	0.00000140	erp_stock.exe	IOCTL_SERIAL_GET_HANDFLOW	Serial0	SUCCESS		
31	0.00000810	erp_stock.exe	IOCTL_SERIAL_SET_BAUD_RATE	Serial0	SUCCESS	Rate: 9600	
32	0.00000391	erp_stock.exe	IOCTL_SERIAL_CLR_RTS	Serial0	SUCCESS		
33	0.00000419	erp_stock.exe	IOCTL_SERIAL_CLR_DTR	Serial0	SUCCESS		
34	0.00000279	erp_stock.exe	IOCTL_SERIAL_SET_LINE_CONTROL	Serial0	SUCCESS	StopBits: 1 Parity: NONE WordLength: 8	
35	0.00000168	erp_stock.exe	IOCTL_SERIAL_SET_CHAR	Serial0	SUCCESS	EOF:88 ERR:0 BRK:0 EVT:0 XON:11 XOFF:13	
36	0.00000307	erp_stock.exe	IOCTL_SERIAL_SET_HANDFLOW	Serial0	SUCCESS	Shake:0 Replace:0 XonLimit:256 XoffLimit:256	
37	0.00000223	erp_stock.exe	IOCTL_SERIAL_SET_WAIT_MASK	Serial0	SUCCESS	Mask: RXCHAR RXFLAG TXEMPTY CTS DSR RLSD BRK ERR RING RX80FULL 	
38	0.00000140	erp_stock.exe	IOCTL_SERIAL_SET_TIMEOUTS	Serial0	SUCCESS	RI:0 RM:0 RC:1000 WM:100 WC:1000