[[sitrico]]

Gracias por responder (y tan rápido). El código que funciona quedo así:

Código Delphi [-]
procedure TfGridForm.aRefrescarExecute(Sender: TObject);
Var
s : String;
begin
s := q.FieldByName(CamposClave[IdFormulario]).AsString; // Registro actual
q.Close;
q.Open;
AjustarColumnas;  // Maquillaje del DBGrid
q.Locate(CamposClave[IdFormulario],s,[]); // Reposicionar actual
end;