//LOCATE
procedure TMainForm.btLocateClick(Sender: TObject);
var options: TLocateOptions;
begin
 with EasyTable1 do
  begin
   Options := [];
   if not cbCaseSensitive.Checked then
    Options := Options + [loCaseInsensitive];
   if cbPartialKey.Checked then
    Options := Options + [loPartialKey];
   if not Locate('Company',SearchCondition.Text,Options) then
    MessageDlg('Record not found.',mtInformation,[mbOk],0);
  end;
end;

//LOOKUP
procedure TMainForm.btLookupClick(Sender: TObject);
var
  V: Variant;
  msg: String;
begin
 V := EasyTable1.Lookup('Company',SearchCondition.Text,'Company;Address;Phone');
 if (not VarIsNull(V)) then
  begin
    Msg := 'Record found: Company='+QuotedStr(String(V[0]));
    Msg := Msg + ', Address=';
    if (not VarIsNull(V[1])) then
     Msg := Msg + QuotedStr(String(V[1]))
    else
     Msg := Msg + QuotedStr('null');
    Msg := Msg + ', Phone=';
    if (not VarIsNull(V[2])) then
     Msg := Msg + QuotedStr(String(V[2]))
    else
     Msg := Msg + QuotedStr('null');
    MessageDlg(Msg, mtInformation,[mbOk],0);
  end
 else
    MessageDlg('Record not found.',mtInformation,[mbOk],0); 
end;