Problemas con Extract

[buitrago]

Al usar el Extract me forma un archivo demasiado grande, de 27 megas, asi como inserta 4 y más lineas...de veras no comprendo.

Mi código dentro de un procedure es el siguiente

var i : integer;
f : TextFile;
begin
AssignFile(f,'c:\e8.txt');
ReWrite(f);
IBExtract1.ExtractObject(eoData,'CLIENTES',[etData]);
Memo1.Lines := IBExtract1.Items;
for i := 0 to Memo1.Lines.Count -1 do
Writeln(f,Memo1.Lines.text);
CloseFile(f);
ShowMessage(IntToStr(Memo1.Lines.Count -1));
End;

El Objetivo es hacer un Dump de la Data a un archivo .txt para pasarlo a través de Internet y mediante el TextDataSet y un IBQuery hacer un Insert múltiple. Esta última parte ya está probada, ahora estoy en lo de contruir el TXT y me ha resultado un lio...

Donde está el error?

Gracias de antemano.

Fer