odczyt niepełnego pliku przy pomocy TFileStream

Oto procedurka (ściągnięta z forum), która odczytuje niecały plik wejściowy - w tym przypadku bez ostatnich 300 bajtów - i zapisuje je w pliku xxx.ddd.

procedure TForm1.Button1Click (Sender : TObject);
var
Source, Destination : TStream;
begin
if OpenDialog1.Execute
then begin
Source := TFileStream.Create (OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite);
try
Destination := TFileStream.Create ('xxx.ddd', fmCreate or fmShareDenyRead);
try
Destination.CopyFrom (Source, Source.Size - 300);
finally
Destination.Free;
end;
finally
Source.Free;
end;
end;
end;

I teraz moje pytanie. Czy (i ewentualnie w jaki sposób) mogę mieć dostęp do wszystkich odczytanych bajtów - oczywiście 'w biegu'. Np. do obliczenia sumy CRC, czy też do czegoś innego?

basia, [email protected]

...
var
  Plik: TFileStream;
  Znak: Char;
  Znaki: array[1..10] of Char;
begin
  ...
  Plik.Read(znak, 1); {Odczytanie znaku}
  Plik.Read(znak, 10); {Odczytanie 10 znakow}
  ...
end;