StringGrid Zellenfarbe ändern?

[TaubenUlli]

Da ich ja nicht beim Malen, sondern nachdem ich etwas in eine Zelle geschrieben habe die Farbe ändern möchte, muss ich einfach StringGrid1GetEditText als Prozedur nehmen?
Aber wie pack ich dann das Abfragen ob eine 1 oder 0 drinne steht noch mit dem obrigen Code zusammen?

Code:

procedure TForm1.StringGrid1GetEditText(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin

  If StringGrid1.Cells[Acol,ARow]='1' Then brush.Color:=clRed;
  end;