Sinnvoller Einsatz von goto

[BUG]

Delphi-Quellcode:

// Prüft, ob eine Datei für den Import vorhanden ist.
// Falls nicht, kann der Benutzer entscheiden, was passieren soll
function CheckImportFile(const fname: TFilename; const Caption:string): Boolean;
var
   msg: string;
begin
  Result := false;
  repeat
    if not FileExists(fname) then
       msg := Format('Datei <%s> ist nicht vorhanden', [fname])
    else if FileGetSize(fname) = 0 then
       msg := Format('Datei <%s> ist leer', [fname])
    else
       msg := '';
    if msg <> '' then
    begin
       case MessageBox(0, PChar(msg), PChar(Caption), MB_ICONWARNING or MB_ABORTRETRYIGNORE or MB_SETFOREGROUND) of
         idAbort: Abort;  // stille Exception
         idIgnore: Exit;
         // idRetry: // noch ne Runde;
       end;
    end else Result := True;  // Datei vorhanden und nicht leer
  until Result = true;
end;

@Roter Kasten fehlt: Oh, war jmd. schneller