TracBar and SQL

if checkbox8.Checked then s:=s+'and (ip <= '+iNTtOsTR(Trackbar1.Position)+') ';

S:='SELECT * FROM ima_tablici WHERE ' ;
if checkbox8.Checked then s:=s+'and (ima_stolbca_s_ciframi <= +iNTtOsTR(Trackbar1.Position)+) '; // <<ПРОБЛЕМНАЯ СТРОКА!
// ну и дальше там вывод строки в квере, там проблем нет, ну, кину на всякий случай
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(s);
ADOQuery1.Active:=True;

S = 'SELECT * FROM ima_tablici WHERE '

S = 'SELECT * FROM ima_tablici WHERE and (ip <= '+iNTtOsTR(Trackbar1.Position)+')'

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 // a:Integer;
 s: string;
begin
 //a:=Trackbar1.Position;
 S:='SELECT * FROM lol1 WHERE ' ;
 {----------------}
 if checkbox1.Checked then s:=s+'adc=True or ';
 if checkbox2.Checked then s:=s+'sup=True or ';
 if checkbox3.Checked then s:=s+'tank=True or ';
 if checkbox4.Checked then s:=s+'mag=True or ';
 if checkbox5.Checked then s:=s+'mili=True or ';
 if checkbox6.Checked then s:=s+'ass=True or ';
 {------- çàáèòü ïîñëåäíèé or ----------}
 if checkbox8.Checked then s:=s+'and (ip <= '+iNTtOsTR(Trackbar1.Position)+')'; //забить  or после скобки, когда разберусь с трэкбарами
 //if checkbox9.Checked then s:=s+' and (rp <= '+iNTtOsTR(Trackbar2.Position)+')';
 //Showmessage(s);
 
 // {
   ADOQuery1.Active:=False;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add(s);
   ADOQuery1.Active:=True;
//  }
     // ADOQuery1.SQL.Add(s);
end;