Перевод данных в двоичной системе(Bin) находящиеся в memo1 в шестнадцатиричную(Hex) в поле memo2

[alenkov]

Доброго времени суток!!!

В Memo1 приходят данные в двоичной системе счисления(Bin) типа 1110110 100110 110110 101101 111110 нужно перевести их в шестнадцатиричную(Hex) в поле Memo2 чтобы было так 76 26 36 2D 3E

Можно конечно было перводить сразу в hex но в memo1 у меня идет смещение т.е если в потоке приходит 111110 отсюда удаляем удаляем 0.
Выглядит так:

function IntToBin(Value: integer; Digits: integer): string;
var
  i: integer;
begin
  result := '';
  for i := 0 to Digits - 1 do begin
    if Value and (1 shl i) > 0
      then result := '1' + result
      else result := '0' + result;
  end;
   end;

procedure TForm1.StrToMemoFile(const St: String);
var
  I: Integer;
  S: String;
begin
 for I := 1 to Length(St) do S := S + ' ' + inttoBin(Ord(St[I]),6);   //Bin
       begin
if s[i] = '111110'  then
delete(s,i,6);//удаляем 0
memo1.Text := memo1.text + s;       // Выводим строку в Memo1
end;

Т.е полученное в memo1 нужно перевести в шестнадцатиричную(hex)
в memo2

Спасибо!!!

[Человек_Борща]

Функции BinToHex, HexToBin , не?