Компонент круглой кнопки

[NameGrey]

Пытался разобраться сам, но все же обращусь за помощью к более опытным... Мне нужно создать компонент круглой кнопки. Создать-то я его создал:

unit ell;
 
interface
 
uses
  SysUtils, Classes, Controls, StdCtrls,windows;
 
type
  Tell = class(TButton)
  private
 
    { Private declarations }
  protected
    { Protected declarations }
      procedure CreateWnd;override;
  public
    { Public declarations }
  published
    { Published declarations }
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('New', [Tell]);
end;
 
{ Tell }
procedure Tell.CreateWnd;
var
 FormRgn:hrgn;
begin
  inherited;
  FormRgn := CreateRoundRectRgn(1, 1, Width - 1,
  height - 1, width, height);
  SetWindowRgn(Handle, FormRgn, TRUE);
end;
 
end.

Проблема заключается в том, что при изменении размеров компонента визуально компонент не перерисовывается. Пробовал переопределять Repaint. Ничего не получилось. Во время работы программы я могу изменить размеры моего компонента(см. ниже код), но мне нужно, чтобы это уже было в нем заложено, а не программно осуществлялось.

var
FormRgn: hRgn;
begin
ell1.Width:=200; //  ell1 - имя объекта созданного на основе класса моего компонента
ell1.height:=100;
FormRgn := CreateRoundRectRgn(1, 1, ell1.Width - 1,
ell1.height - 1, ell1.width, ell1.height);
SetWindowRgn(ell1.Handle, FormRgn, TRUE);

[evg_m]

что при изменении размеров

TControl
procedure ReSize dianmic;

Tell 
procedure ReSize; override;