[Aristarh Dark]

А может надо так?

Код:

if MessageDlg(msg+'Вы уверены в своем выборе?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
podsranovka;
form2.pasp_rol0.Refresh;
form2.pasp_rol0.Locate('ROL_PASP_ID',form8.OracleDataSet1.FieldByName('ROL_PASP_ID').AsInteger,[locaseinsensitive]);
end;