[Delphi] String na Hex

Jak zamienić String na Hex hmm...
np:
46 69 6C 65 = 'file' ?

Pozdrawia Karol {browar}

--

The Delphi has you ...

oto kod:

var
i: Integer;
S, SHexowy: String;
begin
S := '4programmers';
for i := 1 to Length(S) do
SHexowy := SHexowy + ' ' + IntToHex(Ord(S[i]),2);
ShowMessage(SHexowy);
end;

jak chodzilo o cos innego to przepraszam :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ lks16@tenbit.pl ]=-

Dzięki !
O to chodziło ! {browar} ------------------------------------------------------------
The Delphi has you ...

Mozna tak :
function StrToHex(sString: string): string;
var
i : integer;
begin
result:='';
for i:=1 to length(sString) do
result:=result+' '+IntToHex( Ord(sString[i]) , 2);
end;

LKS make it a bit faster ! ;)

wiem że nic nie wiem ;)
Pozdrowienia Chodek