[noob]

Tengo este código para meter en un AnsiString el contenido de 100000 registros:

  while not zquery1.Eof do
    begin
      Contenido := Contenido + 'replace into usuario values (';
      for i := 0 to zquery1.Fields.Count - 2 do
        begin
          NombreCampo := zquery1.Fields.Fields[i].FieldName;
          Contenido := Contenido + '"' + StringReplace(zquery1.FieldByName(NombreCampo).AsString, ',', '.', [rfReplaceAll]) + '", ';
        end;
      NombreCampo := zquery1.Fields.Fields[i + 1].FieldName;
      Contenido := Contenido + '"' + StringReplace(zquery1.FieldByName(NombreCampo).AsString, ',', '.', [rfReplaceAll]) + '");';
      zquery1.Next;
    end;

pero me salta la excepción EOutOfMemory.

Utilizo zeoslib para acceder a una base de datos MySQL.

¿Qué hago mal?