Перекодировка

[GRAY_WOLF]

Как в процедуре вызвать функцию перекодировки? Из интернета я получаю данные 16-hex формате вот их мне надо перекодировать используя эту функцию

uses hexdec;
function DecodeText(Src:string): string;
var
 T,B:String;
 I,SC:integer;
 C:Char;
 L:Integer;
begin
   L:=Length(Src);
   I:=0;
   T:=' ';
   while I < L do
    begin
     C:=GetChar(Src,I);
     if C<>'%' then 
      begin
      if C='+' then C:=' '
       T:=T+C;
       I:=I+1;
      end
     else
     begin
       B:='';
       B:=B+GetChar(Src,I+1);
       B:=B+GetChar(Src,I+2);
       SC:=hex2dec(B);
       T:=T+Chr(SC+848);
       I:=I+3;
     end;
   end;
    DecodeText:=T; 
end;

[Tronix]

У меня работает вот так:

begin
     DrawText(DecodeText(Src),0,0);
     repaint;
     repeat until getkeyclicked = KE_STAR;
end.