var
i: Integer;
begin
i := 0;
repeat
try
archivo.LoadFromFile(FArchivos[i]);
Inc(i);
except
on E: Exception do
begin
case MessageDlg(E.Message, mtError, mbAbortRetryIgnore, 0) of
mrAbort: Break;
mrIgnore: Inc(i);
end;
end;
end;
until i = FArchivos.Count;