function GetCell(DBG: TDBGrid; ARow, ACol: integer; 
  var Cell: string): boolean; 
var 
  bmk: TBookmark; 
begin 
  Result := False; 
  with DBG.DataSource.DataSet do begin 
    if not active 
      or (ARow > Recordcount) or (ARow < 1) 
      or (ACol > Fieldcount) or (ACol < 1) 
      then exit; 
    DisableControls; 
    bmk := getbookmark; 
    RecNo := ARow; 
    Cell := Fields[ACol - 1].AsString; 
    Gotobookmark(bmk); 
    Freebookmark(bmk); 
    EnableControls; 
    Result := True; 
  end; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button11Click(Sender: TObject); 
var 
  zeile, spalte: integer; 
  zellinhalt: string; 
begin 
  zeile := 2; 
  spalte := 3; 
  if not GetCell(DBGrid1, zeile, spalte, zellinhalt) 
    then showmessage('Fehler') 
  else showmessage(zellinhalt); 
end;