Refresh DBGrid Database

procedure TForm1.Button1Click(Sender: TObject);
var
   RefreshDB: TBookmark;
Begin
ZQProsesFalse.UpdateCursorPos;
VRefreshZQ := ZQProsesFalse.GetBookmark;
ZQProsesFalse.DisableControls;
try
 ZQProsesFalse.Refresh;  //refresh dataset if it's open
 if ZQProsesFalse.BookmarkValid(VRefreshZQ) then
  begin
   ZQProsesFalse.GotoBookmark(VRefreshZQ);
  end;
finally
 ZQProsesFalse.EnableControls;
 ZQProsesFalse.FreeBookmark(VRefreshZQ);
end;