Insertar desde una tabla con loop en stored procedure

[Fita]

Hola a todos.

Cómo hago loop en una tabla e insertar registros en otra dentro de un stored procedure?
Por ejemplo:

while not TABLA1.EOF DO
begin
TABLA2.INSERT;
TABLA2Campo1.value := Tabla1Campox.value;
.
.
.
.
TABLA2.POST;
TABLA1.NEXT;
end;

Desde ya muchas gracias

[ecfisa]

Hola Fita.

¿ Y no te serviría de este modo ?

Código SQL [-]
INSERT INTO TABLA1 (CAMPO1, CAMPO2, ...)
SELECT T2.CAMPO1, T2.CAMPO2, ... 
FROM TABLA2 T2
WHERE (CONDICION)  /* (si no son todos) */

Saludos.

[Fita]

Gracias por tu respuesta. Lo probaré.