[lmikle]

А самому подумать???

Тебе надо повторить операцию:
1. Пока кол-во попыток не превысило некоторое число
2. Или пока операция не завершилась успешно.

Код:

TryNum := 0;
Success := False;
While (TryNum < MaxTryNum) Or (Success) Do
Begin
  Try
    Success := DoYourWorkHere;
  Except
    // Catch all exceptions
    Success := False;
  End;
  Inc(TryNum);
End;