żSeguro que ya tienes los 200 caracteres?
żTienes los memos bien numerados?
Sigo sin entenderlo muy bien, pero prueba pasando éstas líneas después del if (justo antes del Until):
Código Delphi
[-]
mm.lines.add(FieldByName('Codigo').AsString + ('-------'));
Next;