Envio de Resultado de un AdoQuery

[MITOPE]

Perdon por la demora , me referia a otra forma de enviar la informacion de la clase TSistena a el formularioGracias.

[jachguate]

Lo siento, pero desde mi posición "enviar la información", significa lo mismo que "mandar la información"... y esto es: muchas cosas posibles y nada concreto.

Cómo no está claro, asumiré que queres copiar los datos de los registros del query1 al query2, lo que podes hacer con un ciclo algo asi:

Código Delphi [-]
  query1.first;
  while not query1.eof do
  begin
    query2.insert;
    query2.fieldbyname('campo').Value := Query1.Fieldbyname('campo').Value;
    query2.post;
    query1.next;
  end;

Hasta luego.