Schleifen Problem bei TMemoryStream

[FreewareFire]

Code:

 
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 
  if (byte1 = 0) and (Byte2 = -1) then 
    Break; 
  //beginn der schleife 
  Stream.ReadBuffer(Byte1, 1); //Byte1 und 2 sind als byte definiert! 
  Stream.ReadBuffer(Byte2, 1); 
  //ende der schleife 

end;

Ist zwar schön und gut, nur nicht korrekt - da fehlt die schleife noch!
Daher das Kommentar über dem Stream! da müsste eine schleife rein, in etwa:

repeat
until ((byte1 = 0) and (byte2 = -1));

zusammen so:

for anzahl := 0 to xmal do
begin

repeat
Stream.ReadBuffer(Byte1, 1); //Byte1 und 2 sind als shortint definiert!
Stream.ReadBuffer(Byte2, 1);
until ((byte1 <> 0) and (byte2 <> -1));

end;