Datenbankgrid aktualisieren

[sega84]

Hallo,
ich mache es wie folgt:
- Merken der ID
- Sortieren / Refresh
- Zurücksetzten der ID...

Delphi-Quellcode:

var
  ID: string;
begin
  XDBGrid1.DisablePosition;
  try
    ID := Query.FieldByName('ID').AsString; //ID merken
    Query.Close;
    ModifyOrderFields(Query.SQL, Grid1.OrderFields); //Sortieren...
    Query.Open;
    Query.Locate('ID', ID, []); //Alte ID wieder setzten
  finally
    Grid1.EnablePosition(True);
    Grid1.UpdateSequence;      
  end;  
  //Refreshen der Datenmenge....
  Query.Refresh;
  ClientDataSet.Refresh;
  //Grid refreshen
  Grid1.Refresh;
  Grid1.Repaint;