Var
  I: Real;
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * From 資料表名稱 Where 商品名稱=''洗衣粉''');
  ADOQuery1.Open;
  I := ADOQuery1.FieldByName('單價').AsFloat;
  //I 變數值即是您需要的數据
end;

Var
  I: Real
begin
  ADOTable1.Open;
  if ADOTable1.Locate('商品名稱', '洗衣粉', [loCaseInsensitive]) then
    begin
      I := ADOTable1.FieldByName('單價').AsFloat;
    end
  else
    begin
      ShowMessage('找不到對應的資料錄');
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================