[dron-s]

да. и правда as нет, но есть Value
так что перепишу вот так

Код:

with Form1.ADOQuery1 do
begin
  SQL.Clear;
  SQL.Add('Select Reports');
  SQL.Add('From Reports');
  SQL.Add('Where Sis<=:Sis');

  Ini:=TIniFile.Create(IniFileName);
  Parameters.ParamByName('Sis').Value := StrToInt(Ini.ReadInteger('User','Sis',0));

 Active:=True;
end;