Delphi'de String - Hex Dönüştürme Fonksiyonları:

// String türdeki ifadenin Hexdecimal türüne çevirilmesi aşağıdaki gibidir.

function StringToHex(S: String): string;

var I: Integer;

begin

  Result:= '';

  for I := 1 to length (S) do

    Result:= Result+IntToHex(ord(S[i]),2);

end;

// HexDecimal türdeki ifadenin String türüne çevirilmesi aşağıdaki gibidir.

function HexToString(H: String): String;

var I: Integer;

begin

  Result:= '';

  for I := 1 to length (H) div 2 do

    Result:= Result+Char(StrToInt('$'+Copy(H,(I-1)*2+1,2)));

end;