Variable an txt Dateinamen anhängen

[Newcomer91]

Guten Morgen,

Mich würde brennend interessieren wie ich eine variable die im laufe des Programms festgelegt wird,
anschließend an den Dateinamen einer neu zu erstellenden txt Datei anhängen kann.

Die Vorgeschichte davon ist, dass ich zurzeit einen Vokabeltrainer programmiere. Nun legt man beim Anlegen neuer Vokabeln fest ob es sich um eine Vokabel der Kategorie Easy, Average, Hard oder Unusual handelt (Radio Button).

Je nachdem was der Nutzer dann auswählt wird überprüft ob eine txt datei mit dem einer der vier Bezeichnungen .txt schon existiert, wenn nicht soll es halt neu angelegt werden.

Hier der Code zum anlegen, die string variable in der die Bezeichnung zugeordnet wird (Easy, Average, Hard oder Unusual) heißt rb und ist private deklariert.

Delphi-Quellcode:

procedure TfrmInsert.btnSaveClick(Sender: TObject);
var
  txt: Textfile;
  sDir: String;
begin
  sDir := ExtractFilePath(Application.Exename)+'Data\';
  if ((rbEasy.Checked) or (rbAverage.Checked) or (rbHard.Checked) or (rbUnusual.Checked)) then
    if ((edtEnglish.Text <> '') and (edtGerman.Text <> '')) then
      begin
        if not DirectoryExists(sDir) then
          ForceDirectories(sDir);

        if not FileExists((sDir)+ 'Vocabulary.txt') then
          begin
            extractFilePath(sDir);
            assignFile(txt, sDir + 'Vocabulary.txt');
            rewrite(txt);
            CloseFile(txt);
          end;
      end;
end;

Wie häng ich die Bezeichnung ans 'Vocabulary.txt' an?

Danke im vorraus.