Error Out Of Memory en delphi

[pmtzg]

uan pregunta compañeros haber si alguno de ustedes les ha pasado lo siguiente:

estoy haciendo un transpaso de bases de datos de :
Paradox a Delphi con el siguiente codigo :

Código Delphi [-]
Table1.First;
while not Table1.Eof dobegin  
// Agregas registro en blanco  
zt2.Append;  
// Copias valores de los campos  
for i := 0 to Table1.Fields.Count -1 do    
zt2.Fields[i].Value := Table1.Fields[i].Value;  
// Guardas el nuevo registro  
zt2.Post;  
// Avanzas al siguinete registro de la tabla origen  
Table1.Next;end;

tengo 1 tabla de paradox que cuenta con 604.330 registrosy cuando estoy corriendo la aplicación llega has el 44%
y me lanza el siguiente error:
miaplicacion.exe raised exeption class EoutOfMemory whith messageOut Of Memory
Process Stopped estoy usando delphi 7 , firebird 2.1
y el componente que uso es:MDOantes transporto 7 tablas y pasan correctamente y completas
pero esta tabla es la mas pesada y es ahi donde que queda
alguien me podria dar una orientada que hacer ... Gracias