Table.First();
while not Table.Eof
 begin
  if (Table.FieldByName(Field).AsString=Edit1.Text) then //Edit為搜尋的資料
   ShowMessage('你找到了');
  Table.Next();
 end;

begin
  if Table1.Locate('欄位名稱', Edit1.Text, [loCaseInsensitive, loPartialkey]) then
  //loCaseInsensitive參數﹕視大小寫相同﹐如果不加此參數﹐則視大小寫為不同
  //lopartialkey參數﹕只要資料錄中從開始有一部分符合Edit.Text的內容﹐則算是符合﹐如果不加此參數﹐則視為需完全符合
    ShowMessage('找到您相符合的資料錄')
  else
    ShowMessage('未找到相符合的資料錄');
end;

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