[Alegun]

Вот для "makar" это под D7 работает

Код:

procedure TForm1.Button1Click(Sender: TObject);
 const Source: string = '6d 61 6b 61 72';
 var
 s: string;
 i: integer;
begin
 with TStringList.Create do
 try
   Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);
   s:= '';
   for i := 0 to Count - 1 do
     s:= s + Chr(StrToInt('$' + Strings[i]));
   ShowMessage(s);
 finally
   Free;
 end;
end;

а с юникодом в русской раскладке под XE8 вам виднее