Daten auslesen mit Asyc Pro

[EDatabaseError]

Sodele:
Senden:
Sti = String mit den zu sendenden Daten
Comm1.Write(Sti[1], Length(Sti));

Inzialisieren:
Comm1.BaudRate := cbgr9600;
Comm1.Databits := da8;
Comm1.Parity := paNone;
Comm1.Stopbits := sb10;
Comm1.DeviceName := 'Com1';
Comm1.Open;

Empfangen:
procedure TMainForm.Comm1RxChar(Sender: TObject; Count: Integer);
var
buffer : array[0..1024] of Char;
begin
Fillchar(Buffer, SizeOf(buffer), 0);
Comm1.Read(Buffer, Count);
end;


Mfg