[lmikle]

Надо разделить строку поиска на подстроки и задать их как отдельные параметры в запросе.

Код:

function MakeQuery(AText : String) : String;
var
  I : Integer;
  AParams : TStringList;
begin
  AParams := TStringList.Create;
  While Pos('/',AText) > 0 Do
    Begin
      AParams.Add(Copy(AText,1,Pos('/',AText)-1));
      AText := Copy(AText,Pos('/',AText)+1,Length(AText)-Pos('/',AText)+1);
    End;
  If AText <> '' Then AParams.Add(AText);

  Result := 'SELECT * FROM Table WHERE';
  For I := 0 To APArams.Count-1 Do
    Begin
      If I <> 0 Then Result := Result + ' AND';
      Result := Result + ' field1 LIKE ''' + AParams[i] + '''%';
    End;

  AParams.Free; 
end;

в общем, как-то так.