大家帮看看，这是什么错误(5分)

我声明了一个过程
procedure TForm1.paintform(var f: TForm);
var
j:TJpegImage;
begin
j:=TJPEGImage.Create;
j.LoadFromFile('e:/suck.jpg');
f.Canvas.StretchDraw(clientrect,j);
end;

在Button1调用这个过程
procedure TForm1.Button2Click(Sender: TObject);
begin
paintform(form1);
end;

提示错误信息：
Types of actual and formal var parameters must be identical

不要var

procedure TForm1.paintform(var f: TForm);
改为
procedure TForm1.paintform(f: TForm);

up

接受答案了.