帮我找找这段话的错误，错误提示S没有参数默认值

Question

procedure TForm1.Button4Click(Sender: TObject);
  var
   S:double;
   i:string;
begin
  i:= Inputbox('输入','超过金额','');
  s:=strtofloat(i);
 qryExcel.Close;
 qryExcel.SQL.Text :='select * from [' + TableList[0] + '] where 销售金额 >='+'s'+'';
 qryExcel.Open;
end;

Answer 1

qryExcel.SQL.Text :='select * from [' + TableList[0] + '] where 销售金额 >='+floattostr(s)+'';

Answer 2

i:= Inputbox('输入','超过金额','');
if i <> '' then
  s:=strtofloat(i) 
else
  s:=0;qryExcel.SQL.Text := format('select * from %s where 销售金额 >= %d',
                            [QuotedStr(TableList[0]),s]);