Delphi - Como hacer un procedimiento general

Hola:
Pues eso, que quiero hacer UN PROCEDIMIENTO que lo puedan ejecutar 10 TShape y que modifique propiedades de estos TSHAPE(del TSHAPE que lo ejecute).

Gracias de todas forma

Forma 1:

Si los TShape estan hechos ya en tiempo de diseño, puedes codificar el el evento de uno de estos, y luego selecciona todos los demas y asignale el mismo evento!

Forma 2

Si se crean en tiempo de ejecucion, crea el procedimiento, luego asignalo asi:

MiShape.OnClik:=MiProcOnClik;

procedure MiProcOnClick(Sender : TObject)
begin
end;

Forma 3:

Crea una clase derivada de TShape, crea el nuevo evento/metodo. Listo

La forma más simple de hacer un procedimiento general que opere sobre el control TShape de tu elección es simplemente escribir un procedimiento que reciba como parámetro el objeto Shape con el que quieras trabajar. Por ejemplo:

procedure General(Shape: TShape);
begin
with Shape do begin
Shape := stRoundRect;
Pen.Width := 2;
Brush.Color := $00E8E0EF;
end;
end;

La invocación de este procedimiento es simple:

General(Shape1);

Espero que te sirva.

Ernesto