Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 begin
   with TStringGrid(DBGrid1) do
   begin
     Row := 2;  // Row - Zeile 
    Col := 5;  // Column - Spalte 
    SetFocus;
   end;
 end;