procedure TForm1.Button1Click(Sender: TObject);
var
  StringToHash: String;
begin
   StringToHash := (UserInput1.Caption);
   StrHashValue.Caption := Hash(StringToHash);

end;