Memofeld Problem !!!

[Vader]

Ganz einfacher Code, öffnen , speichern es werden halt nur ca. 20000 bis 30000 Zahlen eingelesen in das Memo.

Code:

procedure TForm1.Speichern1Click(Sender: TObject);
begin
  if savedialog1.Execute then begin
Texteingabe.lines.savetofile(savedialog1.FileName);
   end;
end;

procedure TForm1.ffnen1Click(Sender: TObject);
begin
opendialog1.Execute;
Texteingabe.lines.loadfromfile (opendialog1.FileName);
end;



end.

mfg Vader