这是什么错误？？

Question

procedure TForm1.Button2Click(Sender: TObject);
var
    i:integer;
    searchrec:Tsearchrec;
begin
     searched:=true;
     label6.Caption:='查找结果';
     listbox1.Items.Clear;
     findfirst(edit1.text,faanyfile,searchrec);
     listbox1.items.add(searchrec.name);
     repeat
     i:=findnext(searchrec.name);//[Error] Unit1.pas(87): Types of actual and formal var parameters must be identical//
      if i=0 then
       listbox1.items.add(searchrec.name);
      until i<>0;
end;

Answer 1

i:=findnext(searchrec.name);i的类型与searchrec.name的类型不匹配。