Ausdruck über AssignFile

[baba]

Moin, moin,

wenn ich folgenden Code ausführe, funktioniert es beim Ersten Mal einwandfrei, beim 2ten Mal wird eine Exception ausgelöst.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
   PRN_Assign : TextFile;
begin
   AssignFile(PRN_Assign, 'LPT1');                     //LPT1-LPT3
 
   ReWrite(PRN_Assign);
   Write(PRN_Assign, 'Hello World');
   CloseFile(PRN_Assign);
end;

Compiliere ich mit Delphi, läuft dieser Code immer einwandfrei.

Da ist wohl ein Fehler beim wiederholten Zugriff auf den LPT.

Was muß ich ändern?

Gruß
Baba.