StringGrid und Button Funktion

[Alterauge]

Was ich nich nicht verstehe ist:

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
begin
FormReporting.Report.Cells[5,1]:='1';
end;

Also hier: Schreibt der Button in der ersten Zeile und Spalte 6 eine '1'.
Das klappt soweit!

Jetzt zum Problem:

Ein Timer soll alle paar sec. überprüfen ob sich in der Zeile 1 Splate 6 eine '1' befindet.

siehe:

Delphi-Quellcode:

procedure TFormEinsatz.Timer33Timer(Sender: TObject);
begin
   if FormReporting.Report.Cells[5,1]= '1' then    
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
end;

wenn sich eine '1' in der ersten Zeile und Spalte 6 befindet, dann schreib:FormMain.AdvGlowButton9.Caption:='test';


es geht aber nicht?