Zahlen von x bis y direkt in Datei speichern

[Al Ex]

Hallo Leute, hab folgendes Problem:

Ich kann nur in ein Memo-Feld die Zahlen eintragen lassen und dann in eine Datei abspeichern lassen.
Für das direkte Abspeichern bin ich zu dumm
Wie lautet dazu der Code??
Außerdem dauert meine Metode ewig lange für Zahlen von 100000000 bis 999999999.

Vielen Dank im Voraus und Grüße

Alex

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

 var x :integer;
   begin
 memo1.Lines.clear;
 for x := 100000000 to 100000009 do Begin
 memo1.lines.Add(IntToStr(x));
 Memo1.Lines.SaveToFile('Datei.plr');
 End;
end;


end.