//参考如下代码
var
  S: string
begin
  Query1.SQL.Text := 'SELECT Field1 FROM Table1 WHERE Field2 = ''Value2''';
  Query1.Open;
  S := Query1.FieldByName(Field1).AsString;
  Query1.Close;
  ShowMessage(S);
end;//用SQL语句写查询,用TDataSet取字段的值