Ошибка в процедуре

[GAGARIN-NEW]

Здравствуйте уважаемые =)
У меня возникла проблемка ... написал процедуру но в ней коечего не работает ...

procedure PSTRE(rich:Trichedit;text:string);
var
T:TStringList;
i,j:integer;
sml:boolean;
begin
T:=TStringList.create;
t.Text:=stringreplace(text,'[sml]',#10#13,[rfreplaceall,rfignorecase]);
for i:=0 to t.Count-1 do
begin
sml:=false;
for j:=0 to smlcode.Count-1 do
begin
if t[i]=smlcode[j] then begin InsertBitmapToRE(rich.Handle,(FindComponent('image' + inttostr(j)) as Timage).Picture.bitmap.handle ); sml:=true; end;// тут компилятор матерится на FindComponent , говорит нету такой переменной хотя когда этот код в буттонклик он работает
end;
//-- если смайл не вставлен ...
if sml=false then addcoloredword(form1.Rich0,t[i],clred);
end;
end;

smlcode - Заполненный TStringList
nsertBitmapToRE - процедура (handle,handle)
rich - richedit на форме

[Aristarh Dark]

Потому что:

procedure PSTRE(rich:Trichedit;text:string);

у тебя не является методом формы, а функция FindComponent - метод формы, следовательно вызывать ее нужно в твоем случае, например, Form1.FindComponent

[Stilet]

+1
А еще мне кажется что Гагарин не учитывает что FindComponent может вернуть nil, в таком случае FindComponent('image' + inttostr(j)) as Timage).Picture заругается и правильно сделает.