Как это сделать?

[Sensizu]

О! Додумался сам) Очень за себя приятно, но без Вашей помощи ничего и не вышло бы =) большое СПАСИБО!

Использовал InsertBitmapToRE, ну если будет интересно - поделюсь как сделать чтобы заменяло когда смайлов и 2 и 3 и больше =) Таймером всё-таки))

[Sensizu]

! Вот каким чудом сделал:

function TchatForm.Smile(const SmileCode:string; SmileBitmap:HBITMAP):integer;
var findAt,curPos:integer;
begin
findAt:=chat.FindText(SmileCode,0,l ength(chat.text),[]);
if findAt<>-1 then begin
chat.Lines.BeginUpdate;
chat.SelStart:=findAt;
chat.SelLength:=length(SmileCode);
chat.SelText:='';
curPos := findAt;
InsertBitmapToRe(chat.handle,SmileB itmap);
chatform.chat.SelStart:=curPos;
chatform.chat.Lines.EndUpdate;
end;
end;

А потом в таймере по массиву =) Отличненько. На такой же процедуре написал анти-мат и анти-рекламу в чате

До встречи в следующих постах, спасибо!