MD5

uses System.hash;
//---------------------------------------------------
procedure Tmain.Button4Click(Sender: TObject);
var
s: string;
begin
s:='333333кенты';
Edit1.Text:=THashMD5.GetHashString(s);
end;