这个错怎么解决？

Question

编译的时候 Types of actual and formal var parameters must be identical 
代码如下：
procedure Qry(const tablename:String;Var Print_Query1,UnitQry:TQuery;Var sl:TStrings); 
begin
  ...
  sl.add(...);  
  ...             //实现部分 
end; 
  
procedure TForm_Club.Button3Click(Sender: TObject); 
Var sl : TStrings; 
   ... 
begin 
  sl:=tstringlist.create; 
  ... 
  Qry(Print_Query2.FieldByName('tablename').AsString, Print_Query1, UnitQry, sl)//!出错光标停留处  ;      
  ... 
  sl.free; 
  ... 
end;

Answer 1

s1是一个tstrings而你代的Tstringlist