Lookup. Delphi

[Artsiom]

Вечер добрый. Смею надеяться, что пока достал не всех своими вопросами...
Не работает код. Постоянно ошибки.

procedure TForm1.BitBtn1Click(Sender: TObject);
var s0:Darray; mm0:integer;
begin mm0:=0;
SetLength(s0,mm0,mm);
with DataModule2.des do begin
DataModule2.des.First;
s0[0,0]:=StrToFloat(Lookup('Name',+DBLookupComboBox1.Text,'ID'));
s0[0,1]:=StrToFloat(Lookup('Name',+DBLookupComboBox1.Text,'Weight'));
s0[0,2]:=StrToInt(Edit1.Text); end;
end;

В книги написано практически так же:

var Results: Variant;
begin
with Table1 do
Results := Lookup('CompanyName', 'Иванов и К', 'City; Street; Home');
end;

А не работает, хоть тресни.
Где ''+DBLookupComboBox1.Text'' пытался брать в двойные одиночные кавычки. Вылазит ошибка [Error] Unit1.pas(86): Missing operator or semicolon
По другому не хочет никак.
Подскажите. Действие такое. Присвоить элементу массива то АйДи которое соответствует в БД имени(которое выбирается в комбобоксе).

[Utkin]

+DBLookupComboBox1.Text

А зачем там знак + в начале?

[Artsiom]

Сообщение от Utkin

А зачем там знак + в начале?

Ну, думал, что надо...
Ошибка теперь страньше:
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004BD6EE in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.
Выделяет синем цветом и зелёной стрелкой показывает на

s0[0,0]:=StrToFloat(Lookup('Name',DBLookupComboBox1.Text,'ID'));

Access violation at address 004BD6EE in module 'Project1.exe'. Read of address 00000000.

[Artsiom]

Ап? Очень, очень актуально...