Delphi - Ayuda

Hola a todos los foristas...
Amigos necesito pasar los registros de la Tabla1 a la Tabla2... ya intente con
Sql
Inser Into Tabla2(campos)
select Campos
From Tablas
Where Condicion

Y no me funciona

Miren en que eh fallado o si hay otra maera de hacerla...
Gracias..

Hay otra manera más trabajosa de hacerlo, recorriendo toda la tabla1:
- registro primero de tabla1
- añado registro en tabla2
- copio datos campo a campo de tabla1 a tabla2
- avanzo registro en tabla1

Algo parecido a esto:
tabla1.first;
while not Tabla1.eof do
begin
tabla2.append;
tabla2NOMBRE.asstring := tabla1NOMBRE.asstring;
...así todos los campos
tabla1.next;
end;
guardar....

Suerte. Virum

Hola virum... intenté de hacer lo que me dijistes y me genera el sieguiente error
variant method not supported... quiero saber si me puedes ayudar en lo anterior...
Gracias...

Ejemplo (para tabla de InterBase):

while not DM.IBDSConta.Eof do
begin
DM.IBDSPartConta.Edit;
DM.IBDSPartConta.Append;
DM.IBDSPartContaPNUME.AsInteger := DM.IBDSContaNUME.AsInteger;
DM.IBDSPartContaPFECHA.AsDateTime := DM.IBDSContaFECHA.AsDateTime;
DM.IBDSPartContaPPARTIDA.AsString := DM.IBDSContaPARTIDA.AsString;
DM.IBDSPartContaPINGRESO.AsFloat := DM.IBDSContaINGRESO.AsFloat;
DM.IBDSPartConta.Post;
DM.IBDSPartConta.Next;
end;
DM.IBT.CommitRetaining;

De todas formas dime que tabla y componentes usas y copiame el código aquí y será más fácil solucionar tu problema.

Suerte. Virum.

me imagino que debe de haber forma mas facil de hacerlo...pero yo realizo esto y me funciona perfectamente.

table2.Insert;
Table2.FieldByName('Contraseña').AsInteger:= Table1.FieldBYName('Contraseña').AsInteger;

Table2.FieldByName('Usuario').Asstring:= Table1.FieldByName('Usuario').Asstring;
Table2.Post;
Table2.Refresh;

La suite JVCL (www.delphi-jedi.org) tiene un componente TMemoryDataset q te permitira hacer facilmente lo q quieres con dos metodos, LoadFromDataset y SaveToDataset..