Несовпадение типов String и Duble

[Droid]

Мучаюсь часа 1.5 не могу понять в чем ошибка, буду признателен за помощь.ttt.JPG

  private
    { Private declarations }
       function o(sqlzap: string; aq: TADOQuery): variant;
  public
    { Public declarations }
  end;

var
  F_GRAF: TF_GRAF;

implementation

uses Unit1, Unit2;

{$R *.dfm}
function TF_GRAF.o(sqlzap: string; aq: TADOQuery): variant;
begin
result:=sqlzap;
aq.close;
aq.sql.clear;
aq.sql.add(sqlzap);
aq.Open;
end;

procedure TF_GRAF.FormActivate(Sender: TObject);
var
i,kolii: integer;
begin
//жалуется на запрос, хотя в СУБД все тянет...
o('SELECT COUNT(familiya) AS KOL FROM pacient pt LEFT OUTER JOIN osnovnoy_soputstvuyhiy_diagnoz osd ON ' +
'pt.id_pacienta=osd.id_pacienta INNER JOIN diagnoz dz ON osd.id_diagnoza=dz.id_diagnoza WHERE dz.id_diagnoza='+gl_f.dblcb1.KeyValue+'',dm.ADOQCHART);
kolii:=dm.ADOQCHART.fieldbyname('KOL').AsInteger;
end;
end.

Такое ощущение что в функции косяк... Но писал и без нее все равно ошибка та же.

[vovk]

попробуйте тотже запрос но с использованием параметров

dm.ADOQCHART.SQL.Text:=('SELECT COUNT(familiya) AS KOL FROM pacient pt LEFT OUTER JOIN osnovnoy_soputstvuyhiy_diagnoz osd ON ' +
'pt.id_pacienta=osd.id_pacienta INNER JOIN diagnoz dz ON osd.id_diagnoza=dz.id_diagnoza WHERE dz.id_diagnoza=:pr1');
dm.ADOQCHART.Parameters.ParamByName('pr1').Value:=  gl_f.dblcb1.KeyValue;
dm.ADOQCHART.Open;

[soleil@mmc]

выделенное лишнее

o('SELECT COUNT(familiya) AS KOL FROM pacient pt LEFT OUTER JOIN osnovnoy_soputstvuyhiy_diagnoz osd ON ' +
'pt.id_pacienta=osd.id_pacienta INNER JOIN diagnoz dz ON osd.id_diagnoza=dz.id_diagnoza WHERE dz.id_diagnoza='+gl_f.dblcb1.KeyValue+'',dm.ADOQCHART);

а gl_f.dblcb1.KeyValue скорее всего придется переводить в стринг

+ IntToStr(gl_f.dblcb1.KeyValue)

неделю назад ты уже задавал подобный вопрос - начни пользоваться параметрами - будешь меньше на грабли наступать