при фильтрации дает ошибку

Добрый день,
народ помогите,
парюсь который час уже


на форме пытаюсь фильтровать корабли
програмно так
if length(ShipsName.text)>0 then begin
sql := sql + ' and a.ship_name='''+'*'+ShipsName.text+'*''' ;
end;

дает ошибку SQL command not properly ended

параметры

задаю параметр путем ввода в текстовое поле

Не видать

= *МойКорабль*
У вас есть такие названия ? Может Like ?

попробовал

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

та же ошибка

И чему в итоге равно sql ?

А вы куда всё это записываете ? Скобочки пробывали ?

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

   ShowMessage(sql);
end;

это раз
а два: почему = вместо LIKE?