Как можно отфарматировать имя обьекта:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if IsWindow(WndForMessage[TTimer(Sender).Tag]) then
KeySend(WndForMessage[TTimer(Sender).Tag],KeyBuff[TTimer(Sender).Tag],UseFlag[TTimer(Sende

r).Tag])
else
AOLButt[TTimer(Sender).Tag].OnClick(??)//вот сдесь я хочу форматнуть имя обьекта, но так как функция формата возвращает строку типа string, то ни чего не получается. Есть ли другие возможности (А то уж сильно хочется иметь универсальный обработчик события)

end;

FindComponent(Format('Edit%d',[i]));

Точно ведь)))) Что ето я ступил))))) 100 раз уже етим кодом пользовался и не обратил внимания что его можно употребить сдесь))) Спасибо)