Перестал работать таймер в Delphi 2010

[Shouldercannon]

При переводе программы с Delphi 7 на Delphi 2010 перестал работать таймер.

...
type
  // Поток для создания процесса
  TApplicationRunning_Thread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
    GoTimer: TTimer;
  end;

var
  Form7: TForm7;
  ApplicationRunning_Thread: TApplicationRunning_Thread;
  i: Integer = 0;
...
procedure TForm7.Button1Click(Sender: TObject);
begin
  ApplicationRunning_Thread := TApplicationRunning_Thread.Create(True);
  ApplicationRunning_Thread.GoTimer := TimerApplicationRunning;
  ApplicationRunning_Thread.FreeOnTerminate := True;
  ApplicationRunning_Thread.Resume;
end;
//-------------------------------Создание процесса------------------------------
procedure TApplicationRunning_Thread.Execute;
begin
  GoTimer.Enabled := True;
end;
//------------------------------------------------------------------------------
procedure TForm7.TimerApplicationRunningTimer(Sender: TObject);
begin
  Inc(i, 1);
  Caption := IntToStr(i);
end;

В чём проблема не пойму.

[Aristarh Dark]

А попроще никак нельзя таймер запускать?

[Пепел Феникса]

а оно и не должно работать, используйте цикл со Sleep.

[Shouldercannon]

Сообщение от Aristarh Dark

А попроще никак нельзя таймер запускать?

Это упрощённый вариант был. В потоке запускаю процесс и если процесс запущен, то и таймер должен начать работу.

procedure TApplicationRunning_Thread.Execute;
var
  StartupInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
begin
  FillChar(StartupInfo, SizeOf(StartupInfo), 0);
  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow := SW_SHOWNORMAL;

  FillChar(ProcessInfo, SizeOf(ProcessInfo), 0);

  if CreateProcess(nil,
                   PChar(Format('%s\Project.exe%s', [GamePath, CmdlMain])),
                   nil,
                   nil,
                   False,
                   CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
                   nil,
                   PChar(GamePath),
                   StartupInfo,
                   ProcessInfo) then
  begin
    GoTimer.Enabled := True;
    WaitforSingleObject(ProcessInfo.hProcess, INFINITE); // Ждём до завершения процесса
  end;
end;

Сообщение от Пепел Феникса

а оно и не должно работать

Это почему. Снова кривые ручки при написании новой версии Delphi что-то испоганили?

Даже с костылём не работает.

procedure Test(B: Boolean);
...
//-------------------------------Создание процесса------------------------------
procedure TApplicationRunning_Thread.Execute;
begin
  Form7.Test(True);
end;

procedure TApplicationRunning_Thread.DoTerminate;
begin
  // Что-то... Если нужно до вызова внешнего OnTerminate (если назначен)
  inherited;
  // Что-то... Если нужно после вызова внешнего OnTerminate (если назначен)
  Form7.Test(False);
end;
//------------------------------------------------------------------------------
procedure TForm7.Test(B: Boolean);
begin
  TimerApplicationRunning.Enabled := B;
end;

[Shouldercannon]

Нашёл решение проблемы.
Жалко нельзя следать так

procedure Test(B: Boolean);
begin
  Timer.Enabled := B;
end;

Synchronize(Form1.Test(True)); // E2250 There is no overloaded version of 'Synchronize' that can be called with these arguments