Ayuda con findcomponent!

[b3nshi]

Muchas Gracias por la respuesta Roman... pero... mmm... veamos...
te explico... lo de recien fue un ejemplo... en realidad lo q estoy queriendo hacer es cambiar varias propiedades en comun q tienen estos objetos, como ser top, left y weight...

Entonces si hago esto, por cada tipo de objeto q se me presente tengo q volver a escribir todas las propiedades... onda algo asi:

Código Delphi [-]
if comp is tedit then
   begin
     with tedit(comp) do
         begin
              top:=
              height:=
              left:=
              weight:=
         end;
    end;  
 
if comp is tlabel then
   begin
     with tlabel(comp) do
         begin
              top:=
              height:=
              left:=
              weight:=
         end;
    end;
{y asi con cada tipo de componente solo q estaria repitiendo las propiedades}

y eso es lo q quiero evitar... tener q escribir muchas veces el mismo codigo... y la verdad q no se me ocurre como hacerlo con una subfuncion...
alguna idea?

desde ya muchas gracias por contestar y tan rapido!