Es gibt eine Möglichkeit, die aber nicht ganz einfach ist.
Du musst deinem Formular eine selbstdefinierte Windows-Message schicken.
Delphi-Quellcode:
const
UM_AUTOSTART = WM_USER + 100;
Txxxx=class(TForm)
procedure UMAutostart(var msg: TMessage); message UM_AUTOSTART;
end;
procedure Txxxx.FormShow();
begin
PostMessage(Self.Handle,UM_AUTOSTART, 0, 0);
end;
procedure Txxxx.UMAutostart(var msg: TMessage);
begin
// hier der länger dauernde Code
end;