Eigentlich ist die Sache ganz einfach: (private) Boolean-Variable in die Form oder das Programm, und wenn die False ist, den Kram im OnShow ausführen und dann diese Variable auf True setzen. Also sowas:
Delphi-Quellcode:
if NOT InitDone then begin
DoSomeStuff;
InitDone:= True;
end;
Grüße
Dalai