Ich bleib im Case hängen

[janjan]

benutz doch die Async Kompos, die sind für alles was mit der seriellen Schnittstelle zu tun hat absolut zu empfehlen:
http://sourceforge.net/projects/tpapro/

Da sind zwei Komponenten dabei die dir weiterhelfen sollten, ApdComPort und ApdDataPacket. Das eine ist für die Initialisierung des Com-Ports verantwortlich, das andere lauscht nach bestimmten Paketen.
In deinem Fall bräuchtest du einmal den Comport und zwei Pakete. Bei dem einen Paket stellst du als Anfangsbuchstabe #0 ein und eine Länge von 2 Zeichen, das andere hat den Anfangsbuchstaben #1 und die Länge zwei. Nachdem du den Comport initialisiert hast, lauschen die beiden Paketkompos nach den eingestellten Paketen.
Angenommen es kommt ein #0 und noch ein Zeichen, dann wird ein Event ausgelöst:

Delphi-Quellcode:

procedure TForm1.ApdDataPacket1StringPacket(Sender: TObject; Data: String);
begin

end;

In Data steckt dein Paket drin und du kannst es da weiterbearbeiten.

Probier die Komponenten einfach mal aus, ich bin absolut begeistert