Саздание на диске D., TPascal for Windpws Опции

[thinkslow]

Прога создает файл на дисках C, ну и D. Если диска D нет вылетает окошко с ошибкой. Можно зделать так, что бы "окошка не было"? Подскажите.

[volvo]

А если привести свою программу, чтобы мы посмотрели, ТАК или НЕ ТАК? (Тогда топик будет перенесен в "Задачи")? Или откроем курсы гадалок?

[Гость]

Код

Uses windos;
var
a:text;
i:integer;
begin
i:=0;
repeat
i:=i+1;
if i=1 then begin
    Assign(a,'C:/somefile.txt');
        end;
if i=2 then begin
        Assign(a,'D:/somefile.txt');
        end;
rewrite(a);
write(a,'Sometext');
close(a);
until i=2;
end.

Если диска D нет, то TPascal7.0 пишет в черном окошке "runtime error...".
но Мне надо откомпилировать в Tpascal for windows, а там, после запуска exe, появляется маленькое окно с ошибкой. Как етого избежать?