[pennylane]

Hola.

Estoy intentado hacer una función genérica para poder modificar las propiedades de los Labels de diferentes formularios

El problema lo tengo al pasar un TForm a un procedure y he leído varios hilos pero no me han funcionado las soluciones. He probado a pasarlo como Class y tampoco funciona... La verdad es que me pierdo en esto y he leído mucho pero me cuesta entender el problema.
El error que me da es "delphi this form of method call only allowed for class methods"


Llamada:

Código Delphi [-]
procedure TFORM1010.FormActivate(Sender: TObject);
begin
     TVariables.CargaCabecera(Form1010, 'Mantenimiento');
end;

Procedimiento:

Código Delphi [-]
procedure TVariables.CargaCabecera(Formulario: TForm; Titulo:String);
begin
     Formulario.Caption := Titulo;
     for i := 0 to (Formulario.ComponentCount - 1) do
     begin
          if (Formulario.Components[i] is TLabel) then
          begin
               TLabel(Formulario.Components[i]).Font.Size := 8;
               TLabel(Formulario.Components[i]).Font.Color := clNavy;
          end;
     end;
end;