Метод Lookup

[Ingrida]

Подскажите пожалуйста, что здесь не так???

procedure TForm1.Button14Click(Sender: TObject);
var
  LookupResult:Variant;
begin
  if CheckBox1.Checked=true then
    Case RadioGroup1.ItemIndex of
    0: LookupResult:=Table1.Lookup('Name',Edit3.Text,'Genre; Producer; Language');
          if VarType(LookupResult)=VarNull then
             ShowMessage(Edit3.Text+ ' not found') else
                if VarType(LookupResult)=VarEmpty then
                ShowMessage('Поиск не проведен!') else
                   if VarIsArray(LookupResult) then
                   begin
                     Label6.Caption:=LookupResult[0];
                     Label7.Caption:=LookupResult[1];
                     Label8.Caption:=LookupResult[2];
                   end; // здесь ошибка :( ''constant expression expcted
     1: LookupResult:=Table1.Lookup('Producer',Edit3.Text,'Genre; Language; Popularity');
          if VarType(LookupResult)=VarNull then
             ShowMessage(Edit3.Text+ 'not found') else
                if VarType(LookupResult)=VarEmpty then
                ShowMessage('Поиск не проведен') else
                   if VarIsArray(LookupResult) then
                   begin
                     Label6.Caption:=LookupResult[0];
                     Label7.Caption:=LookupResult[1];
                     Label8.Caption:=LookupResult[2];
                   end;
end;
end;

[BeJIuKuu_Hexo4yxa]

Попробуй каждый из вариантов case обрамить в begin end

   Case RadioGroup1.ItemIndex of
    0: begin
          LookupResult:=Table1.Lookup('Name',Edit3.Text,'Genre; Producer; Language');
          if VarType(LookupResult)=VarNull then
             ShowMessage(Edit3.Text+ ' not found') else
                if VarType(LookupResult)=VarEmpty then
                ShowMessage('Поиск не проведен!') else
                   if VarIsArray(LookupResult) then
                   begin
                     Label6.Caption:=LookupResult[0];
                     Label7.Caption:=LookupResult[1];
                     Label8.Caption:=LookupResult[2];
                   end; // здесь ошибка :( ''constant expression expcted
        end;
     1: begin
          LookupResult:=Table1.Lookup('Producer',Edit3.Text,'Genre; Language; Popularity');
          if VarType(LookupResult)=VarNull then
             ShowMessage(Edit3.Text+ 'not found') else
                if VarType(LookupResult)=VarEmpty then
                ShowMessage('Поиск не проведен') else
                   if VarIsArray(LookupResult) then
                   begin
                     Label6.Caption:=LookupResult[0];
                     Label7.Caption:=LookupResult[1];
                     Label8.Caption:=LookupResult[2];
                   end;
        end;