Problema de búsqueda de componentes de Delphi

procedimiento TFormPisTemp.BitBtn1Click(Remitente: TObject);

var

aCompent: TComponent;

begin aCompent := form1.FindComponent('imagewait'+inttostr( i));//form1 es otra forma

si aCompent <> nil entonces

comienza

con (aCompent as TImage).Canvas do

comenzar

salida de texto()...

finalizar;

final