1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

//******************************************************************************
// Create hex representation of given Digest
function SHA1Print(const Digest: TSHA1Digest): AnsiString;
  var
    i: Integer;
  const
    Digits: array[0..15] of AnsiChar = '0123456789abcdef';
begin
  SetLength(Result, 40);
  for i := 0 to 19 do begin
    Result[i*2+1] := Digits[(Digest[i] shr 4) and $F];
    Result[i*2+2] := Digits[Digest[i] and $F];
  end;
end;

//******************************************************************************
// Create digest of given Message
function SHA1String(const M: AnsiString): TSHA1Digest;
  var
    Context: TSHA1Context;
begin
  SHA1Init(Context);
  SHA1Update(Context, PAnsiChar(M), Length(M));
  SHA1Final(Context, Result);
end;					

1:

Edit2.Text := SHA1Print(SHA1String(Edit1.Text));