Aktive zelle in StringGrid

[thawka]

Hab jetzt mal folgende Idee umgesetzt:

Delphi-Quellcode:

procedure TForm1.bb_changeClick(Sender: TObject);
begin
     change.ShowModal;  //change ist Formblatt, wo sich die Edit-Felder befinden
     change.edt_name.Text:=strgr.cells[0,akt_zeile];  //Variable für aktive Zeile
     change.edt_prename.Text:=strgr.cells[1,akt_zeile];
     change.edt_class.Text:=strgr.cells[2,akt_zeile];
     change.edt_run.Text:=strgr.cells[3,akt_zeile];
     change.edt_kugel.Text:=strgr.cells[4,akt_zeile];
     change.edt_jumping.Text:=strgr.cells[5,akt_zeile];
end;

Deklarierung der akt_zeile-Variable:

Delphi-Quellcode:

procedure TForm1.strgrSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
     akt_zeile:=ARow;  //Variable für aktuelle Zeile
end;

Dabei soll nach Klick auf einen Button der sich in den Zellen der aktiven Zeile befindliche Inhalt in jeweils ein Edit-Feld übertragen werden. Nur wenn ich das Programm starte, wird erst nach einem 2. Klick auf den Button die Werte übernommen. Beim ersten Mal passiert nichts. Felder sind leer. Woran kann das vielleicht liegen?
Vielen Dank für hilfreiche Hinweise