FileStream to Buffer

[HPW]

Hallo,

Ich habe folgenden Code der schon tut was er soll.
Die Funktion HashBuf erwartet einen Buffer und meine Daten kommen aus einem Stream.
Ist der Code so in Ordnung oder gibt es andere (bessere) Methoden?

Code:

procedure TForm1.Button7Click(Sender: TObject);
 var
   DestStr : String;
   FStream : TFileStream;
   Size    : Integer;
   Buffer  : TBytes;
begin
 FStream := TFileStream.Create(Edit3.Text,fmOpenRead);
 Size    := FStream.Size;
 SetLength(Buffer, Size);
 FStream.ReadBuffer(Pointer(Buffer)^, Size);
 HashBuf( HASH_SHA256, Buffer , Size , DestStr );
 Edit2.Text := DestStr;
 FStream.Free;
end;

Grüsse,
Hans-Peter