procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
if ClientDataSet1.Locate('CustNo','1221',[loCaseInsensitive]) then
for i:=0 to ClientDataSet1.FieldCount-1 do
Showmessage(ClientDataSet1.Fields.AsString);
//或者Showmessage(ClientDataSet1.fieldbyname('Company').AsString)
end;