type

TFormBase = class (Tform)

public
   procedure AtualizaForm;virtual;abstract;
   constructor Create(aOwner : TComponent);override;
end;


implementation

constructor TForm1.Create(aOwner : TComponent);
begin
    inherited;
    If bla bla bla then
      AtualizaForm;
end;


--------------
em Outra unit
---



type

TMeuFilho = Class(TFormBase)
public
   procedure AtualizaForm;override;
end;

implementation

procedure TMeuFilho.AtualizaForm;
begin
  aqui vai o codigo especifico de atualização deste filho
end;