Позиция символа относительно оси X

[F1n4]

Пишу чат,столкнулся с проблемой,а именно со смайликами,изображение есть,и теперь нужно поставить картинку относительно оси X на label

 

var a:integer;

begin

a:=(AnsiPos('[сма]',lbl1.Text));

if a>0 then

begin

img1.Position.Y:=lbl1.position.Y+1;

lbl1.Text:=StringReplace(lbl1.Text,'[сма]','    ',[rfReplaceAll,rfIgnoreCase]);

mmo1.Text:=lbl1.Text;

img1.Position.X:=lbl1.Width+length(lbl1.Text)+a+10;

end

else

Exit;

end;