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

procedure TForm6.SG1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
{ SG1.Cells.selected ???
  SG1.ACol ???
  Keine Ahnung eben... :(
}   
end;					

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

procedure TForm1.sg1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  Edit1.Text := IntToStr(ARow);
  Edit2.Text := IntToStr(ACol);
end;					

1:
2:
3:
4:

procedure TForm6.EPosxExit(Sender: TObject);
begin
  Acol:=StrToInt(EPosX.text)
end;