Tcomport on RXChar Problem

[PhilmacFLy]

Ich reagier jetzt so drauf

Delphi-Quellcode:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
  Str: String;
  first, last: Integer;
begin
  (Sender as TComport).ReadStr(Str, Count);
  if str <>'' then
  begin
  empf := empf + stringtohex(str);
  end;
  if pos('BB BB', empf) > 0 then
  begin
    first := pos('AA AA', empf);
    last := pos('BB BB', empf);
    if last < first then
      begin
      delete(empf, 1, last+5);
      end
    else
      begin
        memo1.Lines.Add(Copy(empf, first+5, last-7));
        //parser.push(empf);
        with TParserthread.Create(empf) do
          begin
            Priority := tpHighest;
            Resume;
          end;
        delete(empf, 1, last+5);
      end;
  end;

end;

Und das scheint zu funktionieren.
Ich lass es jetzt noch n bisschen länger laufen und meld mich nochmal.