Datei stückchenweise mit TFileStream einlesen

[Kamil]

Da fällt mir noch ein:
Falls du statt ReadBuffer Read nimmst, dann kannst du es so machen:

Code:

var 
  Len: integer; 
  ... 
begin 
... 
  while SrcStream.Position < SrcStream.Size do 
  begin 
    Len:=SrcStream.Read(SrcBuffer^, 1024); 
    EncodeBuffer(SrcBuffer^, DestBuffer^, Len); 
    DestStream.WriteBuffer(DestBuffer^, Len); 
  end; 
...