Hay dos funciones en la unidad de Seoane.
A CalcHash le pasas la ruta y nombre del archivo y te devuelve su Hash.
CalcHash2 calcula el Hash de un string.
Código Delphi
[-]
function CalcHash(Archivo: string; Algorithm: THashAlgorithm): string; overload;
var
Stream: TFileStream;
begin
Result:= EmptyStr;
if FileExists(Archivo) then
try
Stream:= TFileStream.Create(Archivo,fmOpenRead or fmShareDenyWrite);
try
Result:= CalcHash(Stream,Algorithm);
finally
Stream.Free;
end;
except end;
end;
Por lo que tu código debe quedar así:
Código Delphi
[-]
if OpenDialog1.Execute then
Edit1.Text:= OpenDialog1.FileName;
Edit2.Text:= CalcHash(Edit1.Text, haSHA1);