Fehler bei Adressierung einer Textdatei zum zugehörigen Ordner

[DeddyH]

Und jetzt einmal im Ganzen (ungetestet, sollte aber passen):

Delphi-Quellcode:

procedure TfrmExperience.btnSaveClick(Sender: TObject);
const Filename = 'Experience.txt';
var
  txt: TextFile;
  sDir: String;
begin
  sDir:= ('C:\blablabllaa\blaaablabla');

  if ((edtHeadline.Text <> '') and (Memo1.Text <> '')) then begin
    ListBox1.Items.Add(edtHeadline.Text);

    if DirectoryExists(sDir) or ForceDirectories(sDir) then
      begin
        sDir := IncludeTrailingPathDelimiter(sDir);
      
        if not FileExists(sDir + Filename) then
          begin
            AssignFile(txt, sDir + Filename);
            rewrite(txt);
            CloseFile(txt);
          end;
      end;
  end;
end;