DBGrid: nach Update aktive Spalte markieren

[incognito]

Hallo Leute,

ich habe eine DBGrid-Komponente, welche ich nach einem Update per Query aktualisiere. Mein DBGrid ist nicht editierbar und RowSelect := true, damit immer die ganze aktive Zeile markiert wird. Ich merke mir den akuell bearbeiteten Datensatz in einer Variablen und springe nach dem Update im DBGrid mittels locate wieder an die richtige Stelle. Allerdings ist die Zeile dann nicht komplett markiert (nur der Cursor steht halt an der richigen Position). Wie kann ich das anstellen, dass die komplette Zeile markiert wird?

Code:

procedure TForm1.Button_SAVEClick(Sender: TObject);
var nummer : integer;

begin
 nummer := StrToInt(DBEdit_B.Text);
  with Query_update.SQL do begin
    clear;
    ADD('update TABELLE');
    ADD('set A = ' + QuotedStr(Edit_A.Text) + '');
    Add('where CStr(B) = ' + QuotedStr(DBEdit_B.Text) + '');
   end;
  Query_update.ExecSQL;

  Query1.active := false;
  Query1.active := true;

  DBGrid1.DataSource.DataSet.Locate('B', nummer, []);