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;