RichEdit line insertion error

[fize]

for t:=1 to length(p) div 2 do n:=n+chr(hextoint(copy(p,t*2-1,2)));
richedit1.lines.Add(n);
end;

что не правильно подскажите