Устранить не совместимость типов

[Persik]

Помогите плиз с ошибкой. Работаю с делфи недавно. Пытаюсь сохранить введенные данные в Комбобоксе. но получаю ошибку: Could not convert variant of type (Null) into type (Integer). Все стопорится на выражении Purpose.ItemIndex := nz(Query(Format(SQLGetData,[data_id,'Purpose']))); Не понимает левую часть, чему присваевается выражение.
И не могу сохранить введенные данные. т.к говорит, что Данные заблокированы.

procedure GetValue;
const
       SQLGetData =   
           'select VAR_VALUE'+
           '  from get_object_data(%d, upper(''%s''))';              
var TmpStr : string;                                
ttt: variant;                               
begin 
        showmessage(data_id);                                         //0
        showmessage(vartoStr(Purpose.Items.Count));    //5
                              
        if Nz(Query(Format(SQLGetData,[data_id,'Purpose'])))<>0
        then Purpose.ItemIndex := nz(Query(Format(SQLGetData,[data_id,'Purpose'])));
        Purpose.OnChange:='ValueOnChange';
        showmessage('end');                                             //не выполняется

procedure ValueOnChange(Sender: TfrxComponent);
begin
  if UpdateVariables.IndexOfObject(Sender)<0 then                                                            
    UpdateVariables.AddObject(Sender.Name,Sender);
  ModifyObject;
end;

[postal2]

Что за функция nz и что за программу вы пишите - возможно есть более простой способ реализации того, что вы написали.

Could not convert variant of type (Null) into type (Integer).

в ошибке написано, что нет входных данных т.е. по сути конвертировать то нечего (невозможно конвертировать пустоту в целое число - дословно)

[Persik]

nz - not zero
в коментах к showmessage я написала, что выводит значение. data_id = 0, а не пустоту.
Выражение

if Nz(Query(Format(SQLGetData,[data_id,'Purpose'])))<>0
        then nz(Query(Format(SQLGetData,[data_id,'Purpose'])));

он кушает спокойно.
А вот присвоение номера выбранного значения комбабокса он никак не хочет понимать. Это значение я и пытаюсь сохранить.
Код написан для обработки данных в карточках FastReports