#pas
procedure THIMainForm._work_doRestore;
begin
  Control.WindowState := wsNormal;
end;

procedure THIMainForm._work_doMinimize;
begin
  Control.WindowState := wsMinimized;
end;