procedure TMainForm.RunTimeOnApplyRecord(Sender: TOracleDataSet;
Action: Char; var Applied: Boolean; var NewRowId: String);
begin
...
end;
procedure TMainForm.ButtonClick(Sender: TObject);
var MyDataSet: TOracleDataSet;
begin
MyDataSet := TOracleDataSet.Create(nil);
MyDataSet.OnApplyRecord := RunTimeOnApplyRecord;
...
end;