1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
begin
//die Variable leange steht für die Länge 
//die Variable hoehe für die Höhe

//anstatt der Zahlen sollen dann eine Variablen die angeklickten Felder bestimmen
//stringgrid1.Cells [2,2] := 'Mahtematik';

stringgrid1.Cells [leange, hoehe] := 'Mahtematik';
end;					

1:
2:
3:
4:
5:
6:
7:

Spaltenbreiten und Zeilenhöhen
w:=stringgrid.colwidths[Spalte];
h:=stringgrid.rowheights[Zeile];

h:=Stringgrid.canvas.textheight(string);
w:=Stringgrid.canvas.textwidth(string);
oder alles zusammen mit textextend					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  showmessage('Es wird gerade die Zelle '+inttostr(acol)+', '+inttostr(arow)+' ausgewählt');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage('Es ist gerade die Zelle '+inttostr(stringgrid1.col)+', '+inttostr(stringgrid1.row)+' ausgewählt');
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  showmessage('Es ist gerade die Zelle '+inttostr(stringgrid1.col)+', '+inttostr(stringgrid1.row)+' ausgewählt');
end;