Fehler bei Adressierung einer Textdatei zum zugehörigen Ordner

[Newcomer91]

Guten Morgen,

zurzeit erweitere ich ein paar Tools die ich mir mal geschrieben habe.
Bei einem, ein kleines Programm, welches man quasi wie einen Notizblock nutzt(alles mögliche eintragen, einsortiert in jeweilige txt datei usw.)
Habe ich bislang den Filepath immer so gesetzt:
ExtractFilePath(Application.Exename) Das funktioniert auch gut allerdings möchte ich nun den Pfad auf neu erstellte Ordner setzen.

ich probierte es so, was allerdings überhaupt keinen Sinn macht wie man sieht:

Delphi-Quellcode:

procedure TfrmExperience.btnSaveClick(Sender: TObject);
var
  txt: TextFile;
  sDir: String;
begin
  sDir:= ('C:\blablabla\blaa');

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

  if not DirectoryExists(sDir) then
    ForceDirectories(sDir);

  if not FileExists(ExtractFilePath(sDir)+'Experience.txt') then
    extractFilePath(sDir);
    AssignFile(txt, sDir +'Experience.txt');
    rewrite(txt);
    CloseFile(txt);
  end;
end;

Was muss ich ändern?

Danke im vorraus.

New