фильтр текстового поля

procedure TArrivalsListForm.SelectArrivals;
var
  bstr,
  sql : string;
begin
  Screen.Cursor := crSQLWait;
  odsArrival.Close;
  sql := 'select a.rowid, a.ship_name,a.*, t.type_name, s.status_name,';
  sql := sql + ' v.inv_count, v.not_pay, v.serv_main, v.inv_credit';
  sql := sql + ' from KASSA.arrival a, KASSA.arr_type t, KASSA.arr_status s, KASSA.arr_inv v';
  sql := sql + ' where a.arr_status <>5 and t.id(+) = a.arr_type and s.id(+) = a.arr_status';
  sql := sql + ' and a.id = v.id';

//?????

    if length(ShipsName.text)>0 then begin
    sql := sql + ' and a.ship_name='''+'*'+ShipsName.text+'*''' ;
        end;

  
  odsArrival.SQL.Text := sql;
  odsArrival.Open;

  Screen.Cursor := crDefault;
end;