Ordner automatisch erstellen?

[Marco Haffner]

Wäre da nicht folgendes kürzer?

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if not DirectoryExists('C:\irgendwas\ass\fjk') then
  begin
    ForceDirectories('C:\irgendwas\ass\fjk');
  end;
  Memo1.Lines.SaveToFile('C:\irgendwas\ass\fjk' + 'Dateinamen.txt');
end;