[aleksnine]

Все нашел решение

Код:

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
   case Msg.CmdType of
      SC_MINIMIZE: exit;
      SC_MAXIMIZE: exit;
      SC_RESTORE: begin
 inherited;
Form1.repaint;
....
....
....
....
      end;

   end;
   inherited;
end;