Empecher la Form de se minimiser

private
procedure WMShowWindow( var Msg: TWMSysCommand);message WM_SYSCOMMAND;

{...}

implementation
{...}

procedure TForm1.WMShowWindow( var Msg: TWMShowWindow);
begin
if not Msg.Show then
Msg.Result := 0
else
inherited;
end;