with qry1 do
begin
close;
sql.clear;
sql.Add('select * from casestructure');
Sql.Add(' where owemodel Like ' #39 '%'   edit1.Text   '%' #39);
prepared:=true;
open;
end;

1. 增加 uses IdGlobal
2. Source Code :
procedure TForm1.Button1Click(Sender: TObject);
var SL : TStrings;
    S  : string;
    i  : integer;
begin
  SL := TStringList.Create;
  try
    BreakApart(edit1.text,'/',SL); // BreakApart function in IdGlobal.pas
    S := '';
    for i := 0 to SL.Count-1 do
      if SL[i]<>'' then S := S + ' owemodel Like '#39'%' + SL[i] + '%'#39' or';
    if S<>'' then S := Copy(S,1,length(S)-3);
  finally
    SL.Free;
  end;
  with qry1 do begin
    close;
    sql.clear;
    sql.Add('select * from casestructure');
    if S<>'' then begin
      sql.Add(' where');
      sql.Add(S);
    end;
    prepared:=true;
    open;
  end;
end;    

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdGlobal;
...