Schleifen Problem bei TMemoryStream

[FreewareFire]

Hi Leute!

Ich habe da ein richtig doofes Problem... Ich habe einen TMemoryStream mit Daten gefüllt.
In diesem muss ich nun folgendes machen:

zwei einzelne Bytes einlesen (direkt hintereinander)

also sowas:

Delphi-Quellcode:

Stream.ReadBuffer(Byte1, 1);
Stream.ReadBuffer(Byte2, 1);

//Davor kommt dann die Anzahl, wie oft er die Scheife durchlaufen soll (so soll's aussehen):

for anzahl := 0 to xmal do
begin
  
  //und hier liegt das Problem... hier muss eine Schleife rein
  //die abbruchbedingung ist, wenn Byte1=0 und Byte2=-1 - dann soll er die schleife verlassen
  //beginn der schleife
  Stream.ReadBuffer(Byte1, 1); //Byte1 und 2 sind als byte definiert!
  Stream.ReadBuffer(Byte2, 1);
  //ende der schleife

end;

ich habs schon mit repeat until versucht, while und for... irgendwas muss falsch sein, wer kann
mir helfen - Vielen Dank für jeden Tipp!

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]