Использование Delphi для создания приложений баз данных. Устюгова В.Н. - 30 стр.

 LookupResults := Lookup('Company; City', VarArrayOf(['Sight Diver', 'Christiansted']),
'Company; Addr1; Addr2; State; Zip');
end;

или

procedure TForm1.Button1Click(Sender: TObject);
var
  V: Variant;
  C: Integer;
  A: String;
begin
  V := Table1.Lookup('Company;State', VarArrayOf(['Blue Sports', 'OR']),
   'CustNo;Addr1');
if not (VarType(V) in [varNull]) then begin
   C := V[0];
   A := V[1];
   ShowMessage(IntToStr(C) + #10 + A);
end
else
   ShowMessage('Search unsuccessful!');
end;

Пример, когда метод Lookup возвращает одно результирующее поле (результат - значение
типа Variant).

procedure TFormX. ButtonOneClick(Sender: TObject);
var
LookupResults: Variant;
begin
LookupResults := Table2.Lookup('FIO', Edit2.Text, 'UchStepen'); // поиск

// Проверяем, содержит ли результат пустое значение или Null:
case VarType(LookupResults) of
varEmpty : Label2.Caption := 'Пустой результат';
varNull : Label2.Caption := 'Запись не найдена';
else
       Label2.Caption := LookupResults;
 end; //case
end;

     Пример, когда метод Lookup возвращает несколько результирующих полей (результат -
вариантный массив). Если переменная типа Variant является вариантным массивом,
функция VarIsArray возвращает True, верхнюю и нижнюю границы массива можно
определить при помощи функций VarArrayLowBound и VarArrayHighBound, а тип
каждого элемента - с помощью функции VarType.

procedure TFormX.ButtonManyClick(Sender: TObject);
var
LookupResults: Variant;
begin
// Ищем запись:
LookupResults := Table2.Lookup('FIO',Edit2.Text, 'TabNum;Doljnost;UchStepen');

                                              30