1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  sList : TStringList;
  Jahr  : String;
  Woche : String;
begin
  sList := TStringList.Create;
  sList.Add('irgendetwas');
  .
  .
  .
  str.SaveToFile(Jahr + Woche + 'PL.txt');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.FormCreate(Sender: TObject);
var
  f: Textfile;
  dateiname:String;
begin
  dateiname:=IntToStr(YearOf(now))+IntToStr(WeekOfTheYear(now))+'PE.txt';  // Name der Datei
  AssignFile(f,dateiname);  // Dateinamenzuweisung
  Rewrite(f);  // Erstellen und öffnen einer neuen Datei

  { Hier deine Routine zum schreiben des Inhaltes deiner Datei z.B.
    WriteLn(f,'test');
  }
  CloseFile(f);  // Schließen der Datei
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

procedure TForm1.lesenClick(Sender: TObject);
var
 Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
  y, m, d, h, mi, se, ms : string;
  text_datei : TextFile;
  MyString, Buffer, A : string;
  P: PChar;
  l, i, e, z, J, S: Integer;
  ri : array[1..75] of String;
  Datum : TDate;

begin
// Speichern in neuer Datei
   if SaveDialog1.Execute then
    begin
     AssignFile(text_datei, SaveDialog1.FileName); // hier denke ich, dass der Dateiname "200520PL.txt" erzeugt werden muss
     Rewrite(text_datei);//erstellt neue Datei und öffnet sie

     writeln(text_datei, 'EDATUM=',IntToStr(year),IntToStr(month),IntToStr(day),IntToStr(hour),IntToStr(Min));
     writeln(text_datei, 'NAME=Automatik');
     writeln(text_datei, 'VA=',IntToStr(year),KalenderWoche(Datum));

// hier noch weitere Daten


     writeln(text_datei, 'DATUM=',y,m,d);

     for i := 1 to 75 do
      writeln(text_datei, i,'=',ri[i]);

     writeln(text_datei, 'J=',J);
     writeln(text_datei, 'S=',ri[S]);


     closeFile(text_datei);
     
    end;

    ShowMessage('Datei wurde erfolgreich erzeugt!');
    Application.Terminate;
end.					

1:
2:

 if SaveDialog1.Execute then
begin					

1:

AssignFile(text_datei, <DeinDateiname>);