einen "writeln" aufruf für mehrere Dateien verwendbar?

[Elcattivo83]

Hallo Leute,

ich würde gerne mal wissen, ob ich einen "Writeln"-Aufruf für verschiedene Dateien verwenden kann.
Ich habe das mal so probiert:

Delphi-Quellcode:

{$I-}
if FileExists(DateiName_1) then
begin
  Assign (Datei_1,DateiName_1);
  Append (Datei_1);
end else
begin
  Assign  (Datei_1,DateiName_1);
  Rewrite (Datei_1);
end;

if FileExists(DateiName_2) then
begin
  Assign (Datei_2,DateiName_2);
  Append (Datei_2);
end else
begin
  Assign  (Datei_2,DateiName_2);
  Rewrite (Datei_2);
end;

if ProfilTyp = PTyp_1  then
begin
  TempDatei := Datei_1;
end;

if ProfilTyp = PTyp_2  then
begin
  TempDatei := Datei_2;
end;

writeln(TempDatei,'Text');
try
close(Datei_1);
close(Datei_2);
finally
end;
{$I+}

TempDatei, Datei_1 und Datei_2 sind vom Typ "Text".
Beim Compilierversuch bekomme ich bei der Zuweisung "TempDatei := Datei_1;" die Fehlermeldung: "[DCC Fehler] BerechnA26Task.pas: E2015 Operator ist auf diesen Operandentyp nicht anwendbar"

Kann mir jemand sagen warum das so ist und wie ich es schaffe, dass es funktionsiert?!?
Vielen Dank schon einmal
Grüße Catti