[AlexSku]

Ошибка выходит не всегда, заметила такую закономерность, чем больше данных по записи, которая берется тем больше вероятность получить ошибку.

Теперь мы пойдём другим путём. Есть подозрение, что транзакция, которая вносит изменения ( напр, form8.OracleDataSet1.FieldByName('ROL_PASP_SEC').A sInteger:=bl_id; ) имеет монопольный доступ к данным и пока не закончится, отвергает Refresh, которой придётся подождать. Если дело в миллисекундах, то я обычно пишу:

Код:

while <плохая ситуация> do
Application.ProcessMessages;
или
repeat Application.ProcessMessages
until <хорошая ситуация>;

Если время идёт на секунды, то запускаю таймер с интервалом, напр. 100 [мс]:

Код:

Timer1.Enabled:= true;
...
procedure Form1.Timer1Timer(Sender: TObject);
begin
  if <хорошая ситуация> then
  begin
    Timer1.Enabled:= false;
    form2.pasp_rol0.Refresh;
  end;
end;

Теперь хорошо бы получить сведения о ситуации. Может быть, провести исследования таким способом:

Код:

var State1: TDataSetState;
...
State1:= form2.pasp_rol0.State;
try
  form2.pasp_rol0.Refresh;
  ShowMessage(Format('норма: %u',[Ord(State1)]));
except
  ShowMessage(Format('ошибка: %u',[Ord(State1)]));
end;