type
 TForm1 = class(TForm)
  procedure WndProc (var message: TMessage); override;
 private
  { Private declarations }
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WndProc (var message: TMessage);
begin
 case message.Msg of  
  WM_WINDOWPOSCHANGING: PWindowPos(Message.LParam)^.hwndInsertAfter:=HWND_BOTTOM;
 end;
  inherited;
end;