procedure WMSysCommand(var Message: TMessage); message WM_Syscommand ;

procedure TFrm_main.WMSysCommand(var Message: TMessage);
begin
  if (Message.WParam = SC_CLOSE) or (Message.WParam = SC_MINIMIZE) then
  begin
    CoolTrayIcon1.iconvisible:= true;
    frm_main.hide;
  end
  else
  inherited;
end;