请教refresh屏幕刷新问题(0分)

我学习控件制作当中,怎么无法调用刷新函数呢?
Procedure TCloseButton1.SetWidth(Vaule:integer);
begin
FWidth:=Vaule;
refreshTCloseButton1;
end;
编译时,总提示未申明,请教各位大侠,那里有问题?

CloseButton1.repaint;

Invalidate

Sets the windowed control's boundary properties all at once.

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;

Description

Use SetBounds to change all of the control抯 boundary properties at once. The same effect can be achieved by setting the Left, Top, Width, and Height properties separately. By setting all four properties at once, SetBounds ensures that the control will not repaint between changes

Specify the values for the Left, Top, Width, and Height properties as the value of the ALeft, ATop, AWidth, and AHeight parameters, respectively.

谢谢大家，我试一哈先~！