rect und TStringGrid

[Bastler]

Hallo, ich habe folgenden Code nommen, wie ich ihn hier vielfahc gefunden haben, zum einfärben von StringGrid-Zellen

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
with TStringGrid(Sender).Canvas do begin
       if (ACol=1) and (ARow=1) then begin
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
  end;
end;

end.

Zitat:

[Fehler] Unit1.pas(33): Es gibt keine überladene Version von 'Rect', die man mit diesen Argumenten aufrufen kann

Wie gehts jetzt genau? Wenn ich als Unit Types einbinde, kommt noch "Nicht genügend wirkliche Parameter"

Danke!!