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;
위의 코드를 다음과 같이 고쳐보세요...

====>

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
I : string;
begin
with Query1 do
  begin
  sql.clear;
  sql.ADD('Select * from TM ');
                          -------->TM다음에 한칸 뛰우고 ' 를 타이핑
  sql.add('where Name = :name');
                          --------> = 다음에 한칸 뛰우고 : 를 타이핑
  parambyname('name').asstring := edit1.text;
  open;
  end;
end;

*** sql문장을 쓸 때 'select * from TM Where name = :name'
                                ----               ------
    그리고 미리 where조건에 들어가는 변수를 I := edit1.text라고 하면 안되고
    나중에 parmabyname('name').asstring := edit1.text 라고 해야 함....
    저도 초보라서 잘 설명을 못하겠네요...