//Birden fazla column için lookup metodu...
//...::::::( KORSAN )::::::...\\
procedure TForm1.Button1Click(Sender: TObject);
var
MyResults: Variant;
MyKeyFields, MyKeyValues: String;
MySearchForValue: Integer;
begin
MyKeyFields := 'CustNo';
MySearchForValue := 1351;
MyReturnColumns := 'Company;Addr1';
MyResults := Table1.Lookup(MyKeyFields, MySearchForValue,
MyKeyValues);
if not VarIsNull(MyResults) then
ShowMessage('Company: ' + MyResults[0] + ' Address: ' +
MyResults[1]);
end;