Schleifen Problem bei TMemoryStream

[FreewareFire]

Hier die Lösung:

for APos := 0 to (doxmal - 1) do
for BPos := SPosition to memstr.Size do
begin
if ((EndBuffer = 0) and (EndBuffer1 = -1)) then
begin
memstr.Position := memstr.Position + 1;
break;
end;

memstr.Read(EndBuffer, 1);
memstr.Read(EndBuffer1, 1);
memstr.Position := memstr.Position -1;

end;


leuchtet sogar ein, oder?

Danke euch allen für eure mühe!