procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ShowWindow(GetForegroundWindow, SW_MAXIMIZE);
end;