StringGrid Zeile per Mausclick auslesen

[klausmaus]

Nach reichlich Bastelei bin jetzt soweit, das was ausgegeben wird.
Aber: wg. zeileARow:=Filepos(ChemDat)+1; wird immer der erste Datensatz ausgegeben.
Wie krieg ich den aktuellen (angeklickten) Datensatz?
Hier der Code

Delphi-Quellcode:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  begin
  If CanSelect=True then
    seek(ChemDat,0);
      with Chem do
        ARow:=Filepos(ChemDat)+1;
        begin
          read(ChemDat,Chem);
          EditNr.Text:=(StringGrid1.Cells[1,ARow]);
          EditName.Text:=StringGrid1.Cells[2,ARow];
          DateTimePicker1.Date:=StrToDate(StringGrid1.Cells[4,ARow]);
        end;
  end;

Wäre prima, wenn jemand `nen Tipp hätte.