timer1.enabled:=true; // включаем таймер

var
h:hwnd;
begin
label1.caption:= TimeToStr(Time); // Выводим время в label
    h :=FindWindow(nil, 'GTA:SA:MP'); // ищем хэндл окна
if FormatDateTime('hh:mm:ss',now) = '18:00:00' then  // если системное время равно 18:00:00 то
    ShowWindow(h, SW_MAXIMIZE); // разворачиваем окно  
    if FormatDateTime('hh:mm:ss',now) = '19:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '20:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '21:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '22:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '23:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '00:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '01:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '02:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '03:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '04:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '05:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '06:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '07:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '08:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '09:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '10:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '11:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '12:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '13:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '14:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
       if FormatDateTime('hh:mm:ss',now) = '15:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
       if FormatDateTime('hh:mm:ss',now) = '16:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
       if FormatDateTime('hh:mm:ss',now) = '17:00:00' then
    ShowWindow(h, SW_MAXIMIZE);

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls, StdCtrls, Buttons, sSkinProvider, sSkinManager;

type
   TForm1 = class(TForm)
     BitBtn1: TBitBtn;
     Timer1: TTimer;
     Label1: TLabel;
     procedure BitBtn1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

timer1.enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
h:hwnd;
begin
label1.caption:= TimeToStr(Time);
    h :=FindWindow(nil, 'GTA:SA:MP');
if FormatDateTime('hh:mm:ss',now) = '18:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '19:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '20:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '21:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '22:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '23:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '00:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '01:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '02:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '03:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '04:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '05:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '06:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '07:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '08:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '09:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '10:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '11:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '12:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '13:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
    if FormatDateTime('hh:mm:ss',now) = '14:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
       if FormatDateTime('hh:mm:ss',now) = '15:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
       if FormatDateTime('hh:mm:ss',now) = '16:00:00' then
    ShowWindow(h, SW_MAXIMIZE);
       if FormatDateTime('hh:mm:ss',now) = '17:00:00' then
    ShowWindow(h, SW_MAXIMIZE);

end;

end.