en si mi aplicacion de inicio solo tiene un imagelist un boton y un listbox, apartir de el llenado de este listbox ( de una base de datos ) sera la cantidad de objetos a crear entonces no tengo numeros de objetos definidos, sin embargo ciertos patrones que puedo continuar
y pues solo juego con objetos que segun mis calculos pueden ser llamados, les dare la respuesta de como solucione
Código Delphi
[-]procedure TForm1.mensaje(Sender: TObject);
var
mm: TMemo;
begin
mm:=TMemo(FindComponent('memo'+inttostr(TToolButton(Sender).Tag)));
if Assigned(mm) then
ShowMessage(mm.Text);
end;