Jak przeliczyć string na hex?

Jak przeliczyć string na hex?
np: gdy w edit1 wpiszemy Bartek to w edit2 pokazuje nam się Bartek w hexach.

Poczytaj w helpei..
ja w 2 sekundy znalazlem takie cos (to nie jest odp dla Ciebie tylko przyklad ze w helpei są takie rzeczy)

procedure TForm1.Button1Click(Sender: TObject);

var
i: Integer;
begin
Label1.Caption := '';
for i := 1 to Length(Edit1.Text) do
begin
try
Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],2) + ' ';
except
Beep;
end;
end;
end;

Albo trochę krócej:

var
S, Hex : String;
begin
S := Format('%x', [StrToInt(Hex)]);
end;

[cya]