استفاده از دستور Locate در DBISAM

[nasr]

سلام
برای استفاده از دستور Locate در DBISAM چه متنی باید نوشت آیا متن زیر اشکالی داره
If not(Table6.Locate('id',(Table1.fieldbyname('ida'). AsString),[])) then begin
Table6.AppendRecord([Table1.FieldByName('ida').AsString,Table1.FieldByN ame('namea').AsString]);
end;

[Delphi-Clinic]

مثال زیر از راهنمای DBISAM استخراج شده است:

begin



   with CustTable do

      Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

end;

سلام
مقدار Table1.fieldbyname('ida').AsString را در یک متغیر قرار بده فکر می کنم درست میشود.