[ecfisa]

Hola RoyTan.

Seguramente estés utilizando el mismo TIBQuery para insertar y mostrar, probá de este modo:

Código Delphi [-]
procedure TF_AAgenda.BAnadirClick(Sender: TObject);
var
  SQLStrTmp: string;
begin
  if trim(ECodigo.Text)  = '' then
  Begin
    ShowMessage('El campo CODIGO no puede quedar vacío.');
    ECodigo.SetFocus;
  End
  else
  Begin
    (* Salvar valor consulta inicial *)
    SQLStrTmp:= ModuloDatos.IBQAgenda.SQL.TExt; 

    ModuloDatos.IBQAgenda.Close;
    ModuloDatos.IBQAgenda.SQL.Text := 'insert into AGENDA Values(:pb1,:pb2,:pb3)';
    ModuloDatos.IBQAgenda.ParamByName('pb1').AsInteger  := StrToInt(ECodigo.Text);
    ModuloDatos.IBQAgenda.ParamByName('pb2').AsDate     := MEFechaA.Date;
    Modulodatos.IBQAgenda.ParamByName('pb3').AsString   := EDescripcion.Text;
    ModuloDatos.IBQAgenda.ExecSQL;
    ModuloDatos.IBQAgenda.Transaction.CommitRetaining;

    (* Restaurar valor consulta inicial *)
    ModuloDatos.IBQAgenda.Close;
    ModuloDatos.IBQAgenda.SQL.Text:= SQLStrTmp
    ModuloDatos.IBQAgenda.Open;

    ShowMessage('Registro insertado con Exito');
  End;
end;

Saludos.