[droguerman]

puedes aplicar herencia o podrias hacer algo como esto

Código Delphi [-]
procedure mifuncion(Sender: Tobject);
begin
end;

var
  x : TForm;
begin
  x := Tform.create(self);
  x.onCreate = mifuncion;
end;