ошибка types of actual and formal var parameters must be indentical delphi

[Nukerer]

Захотел посмотреть старую программу архиватора, которая была написана на delphi 7, но видимо в 10 версии что то изменили, и эта строка не работает. Подчеркивается скобка около temp. Помогите исправить, пожалуйста

procedure TForm1.PackBtnClick(Sender: TObject);
begin
if fileexists(PackS.Text)and(PackD.Text<>'')then PackThread:=CreateThread(0,0,@Compress,0,0,temp)
end;