Привет всем. Кто подскажет, в чём у меня ошибка, код написан из пакета DOA

Variant Searching[]={OracleSession1->LogonUsername};
MyDataset->Open();
if (MyDataset->SearchRecord("USERNAME", VarArrayOf(Searching, 1), TSearchRecordOptions() << srFromEnd)){
.
.
.

Компилятор пропускает всё что написано, но доходит до выполнения и говорит:
---------------------------
Debugger Exception Notification
---------------------------
Project Containers.exe raised exception class EAccessViolation with message 'Access violation at address 4001FF8E. Read of address 00000001'. Process stopped. Use Step or Run to continue.

Заранее спасибо