Moin, Moin,
wenn dieser Weg unbedingt gegangen werden soll, dann bitte mit einer minimalen Fehlerbehandlung, z.B.
Delphi-Quellcode:
{$I-} reset(upi) { {$I+}
if IOResult=0 then
while ...
Auf diesem Weg kann man natürlich auch einen Fehlercode auswerten ...