Query로 아래와 같이 검색을 하려고 하는데
어떻게 하는지 자세히 모르겠습니다
아래의 소스를 자세하게 수정해 주세요..!
------------------------------------------------------
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
I : String;
begin
With Query1 do
   Begin
    I:= Edit1.Text;
    Close;
    SQL.Clear;
    SQL.ADD('Select * from TM');
    SQL.ADD('Where Name =:I');
    Open;
    end;
end;
------------------------------------------------------