[M.A.D.M.A.N.]

То что ты делаеш-есть усложнение.
Я вот как делал

Код:

var index:byte;
begin
  for index:=1 to length(text)do
    caption:=caption+inttohex(byte(text[index]),2);
end;

вот и все

Да и вот еще что simvol: array у тебя строковый, надо делать символьный ибо так памяти они будут занимать меньше.