StringGrid - Markierung ändert sich nicht

[huberlix]

Ok, ich hab jetzt ein StringGrid und nen Button auf die Form gepappt.
Dann in Button1Click die Selection reingeschrieben. Funktioniert einwandfrei.
Hier mal die ganze Unit. Vergleich mal genau! Ich denk der Fehler liegt irgendwo anders.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  stringgrid1.Selection:=TGridRect(Rect(3,3,3,3));
end;

end.