procedure TForm1.serch_data(s_data:String);
  var Q1:TQuery;
begin
 
  Q1 := TQuery.Create(Self);
  Q1.Sql.Clear;
  Q1.Sql.Add('Select * from 테이블명 Where 검색할필드명 like ''%'+s_data+'%''');
  Q1.Open;

  ...... (필요한작업추가)

  Q1.Close;
  Q1.Free;
end;

이렇게 프로시져를 하나 만들어놓으시구요.
만약 입력하는 콤포넌트가 에디트박스라면 에디트박스의 Onchage 이벤트에서
serch_data(Trim(Edit1.Text));
이렇게 호출해서 쓰시면 됩니다.

조희문 님이 쓰신 글 :
: 안녕하세요
:
: 질문에 요지
: 쿼리(QWdistinct)와 연결된 데이타소스  데이타소스와 연결된 DBGrid가 있습니다.
: 이렇게 값이 DBGrid에 나타날때 키보드를 눌렀을때 키보드에 영문과
: 앞글자가 같은 값을 찾아서 거기에 위치 시키고 싶은데 어떻게 하면
: 좋을까요??
: 예를 들어서 키보드에 H키가 눌렸을 경우 데이타값중에 H로 시작하는
: 처음에 값에 위치시키고 싶은데요
: 저에생각으로는 폼의 FormKeyUp이벤트에서 키값을 가지고
: Locate프로시져를 이용해서 옮길 생각으로 이렇게 했는데
: 전달인수인 Key값을 어떻게 해야 할지 모르겠네요!!
:
: procedure TFcarselect.FormKeyUp(Sender: TObject; var Key: Word;
:   Shift: TShiftState);
: begin
:    QWdistinct.Locate('maker',,[lopartialkey]);
: end;
:
: 어떻게 해야 할지 !!
: 그럼
: 안녕히
: 수고하세요 
:
: