StringGrid und Button Funktion

[Alterauge]

da kommt auch nix?

Delphi-Quellcode:

 var i: integer;
begin
 i := FormReporting.Report.TopRow-1;
   if FormReporting.Report.Rows[i][5]= '1' then  // lese die letzte Zeile (also die aktuelle zeile) oder nicht?
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
   end;