Celle i StringGrid

Hallo
Er der virklig ingen der kan hjælpe mig med dette lille problem ???????
Hilsen Anold

Prøv følgende:

Placer en stringgrid og en button på en tom form og hægt dem op til følgende metoder:

procedure TForm1.FormCreate(Sender: TObject);
Var
  x : Integer;
begin
  For X := 1 to 20 Do
    StringGrid1.Cells[1, x] := \'Row \'+IntToStr(x);

  For X := 2 to 30 Do
    StringGrid1.Cells[x, 1] := \'Col \'+IntToStr(x);

  StringGrid1.Cells[7, 7] := \'7,7\';
  StringGrid1.Cells[6, 6] := \'6,6\';
  StringGrid1.Cells[8, 8] := \'8,8\';
  StringGrid1.Cells[7, 8] := \'7,8\';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StringGrid1.LeftCol := 7;
  StringGrid1.TopRow := 7;
end;

FormCreate placerer bare noget indhold i grid\'en (ikke særligt spændende) men det er buttonClick eventen der er \'sjov\'.

Delphi