das würd ich so machen:
Delphi-Quellcode:
for i:=1 to length(Memo.Lines.Text) div 510 do//wieviele memos werden gebrauch?
begin
TMemo(findcomponent('Memo'+inttostr(i))):=copy(Memo.Lines.Text,0,510);//text übertragen
delete(memo1.Lines.Text,0,510);//text aus 1. memo löschen
end;
TMemo(findcomponent('Memo'+inttostr(i+1))):=Memo.Lines.Text;//rest des textes löschen
können noch fehler drinsein, aber sollte vom prinzip her klappen...