Guardar datos de ADOquery

[Ana María]

No se si entendí bien tu pregunta, .... pero ensaya con esto depronto te sirve.

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;

  procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
  procedure CargarVariables;
    { Private declarations }
  public
    { Public declarations }
  end;

var
Form1: TForm1;
ValorCampo1ADOQuery : TipoCampo1;//Especificar el tipo de datos del //campo1
ValorCampo2ADOQuery : TipoCampo2;//Especificar el tipo de datos del //campo2
ValorCampoNADOQuery : TipoCampoN;//Especificar el tipo de datos del //campoN
//etc..etc...

implementation

{$R *.dfm}


procedure  TForm1.CargarVariables;
begin
ValorCampo1ADOQuery := ADOQuery1.FieldByName('Campo1').Value;
ValorCampo2ADOQuery := ADOQuery1.FieldByName('Campo2').Value;
ValorCampoNADOQuery := ADOQuery1.FieldByName('CampoN').Value;
// etc..etc
end;


procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
CargarVariables;
end;