Zeitabstand zwischen erstellen und Inhalt abspeichern?

[julchen]

Hallo,

ich möchte Text in einer Datei abspeichern und beides soll mit einem Knopfdruck erledigt werden.
Die Datei wird erstellt, aber der Inhalt nicht in ihr gespeichert und das Programm stürzt beim Speichern ab.
Was mache ich da falsch?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
        i,x: integer;
        f: String;
begin
        If not FileExists('0000.html') then
        begin
          FileCreate('0000.html');
          RichEdit1.Lines.SaveToFile('0000.html');
        end
          else
        begin
          x := 0;
          for i := 0 to CountFiles(ExtractFilePath(Application.ExeName)) - 1 do
          begin
            inc(x);
            f := Format('%.4d', [x]);
            FileCreate(f + '.html');
            RichEdit1.Lines.SaveToFile(f + '.html');
          end;
        end;
end;