const
CM_CLOSE = WM_USER + 1;
type
TForm2 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure CMClose(var Message: TMessage); message CM_CLOSE;
end;
implementation
procedure TForm2.CMClose(var Message: TMessage);
begin
ModalResult := mrOk;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
PostMessage(Handle, CM_CLOSE, 0, 0);
end;