if then有关问题

if then问题
我想在点击窗体5次后出现MSGBOX
下面的代码有什么问题?]

procedure TForm1.FormClick(Sender: TObject);
var i: integer;
begin
 if i:=5 then
  begin
  showmessage('123');
  end;
end;

end.


[解决办法]
if i:=5 then
错误的，要改为 if i=5 then