Выполнение процедуры заданное кол-во раз

[UKRtortik]

Нужно выполнить процедуру заданное кол-во в edit и остановить, понятно что это делается примерно так:

for i:=0 to strtoint(edit1.Text)-1 do

Но при выполнение процедуры у меня может возникнуть ошибка, ну так вот мне нужно сделать так чтобы защитовалось выполнение процедуры только когда она у меня успешно выполнена. Как это реализовать?

[blackstrip]

через блок try except end и флажок

var
good:boolean;
begin
good := true;
try
for i:=0 to strtoint(edit1.Text)-1 do
begin
...
end;
except
good:=false;
end;

if good then
begin
//все хорошо, ошибок не было
end
else
begin
//все плохо, была ошибка и вылет в блок except
end;
end;

[evg_m]

while (n<maxval) and (nbad<maxerror) do
try
  runproc;
  n:=n+1;//считаем только успехи
except
  nbad:=nbad+1;
end;