1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Const
  WM_AfterShow = WM_User+10; // Die Message

//In der deklaration oben
   private
    procedure WMAfterShow(var Msg: TMessage); message WM_AfterShow;
   ...

// Und die Procedure selbst
procedure TMainForm.WMAfterShow(var Msg: TMessage);
begin
   // Hier tun was immer du nach FormShow machen willst...
end;

// Und das wichtigste
procedure TMainForm.FormShow(Sender: TObject);
  PostMessage(Self.Handle, WM_AfterShow, 0, 0);
end;                    

1:
2:
3:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;