Quizás podría servirte el Loaded, protegido en el padre.
Código Delphi
[-]
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
public
procedure Loaded; override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Loaded;
begin
inherited;
end;
O si nos explicas las condiciones quizás alguna otra manera (incluso no llegar a crear el formulario haciendo las comprovaciones antes)