Обрезка формы по рисунку и ее движение

[Claster]

Всем привет: Использую процедуры для обрезки формы по рисунку

function TButtonForm.CreateBRegion(Bitmap: TBitmap): HRGN;
var
  X, Y, XStart: Integer;
  TransColor: TColor;
begin
  Result := 0;   // на случай ошибки
  // Берем прозрачный цвет из левого верхнего угла
  TransColor := Bitmap.Canvas.Pixels[0, 0];

  with Bitmap do
    for Y := 0 to Height - 1 do
    begin
    X := 0;
    while X < Width do
    begin
      // Пропускаем прозрачные точки
      while (X < Width) and (Canvas.Pixels[X, Y] = TransColor) do
        Inc(X);
      if X >= Width then
        Break;
      XStart := X;
      // Пропускаем непрозрачные точки
      while (X < Width) and (Canvas.Pixels[X, Y] <> TransColor) do
        Inc(X);
      // Создаём новый прямоугольный регион и добавляем его к региону картинки
      if Result = 0 then
        Result := CreateRectRgn(XStart, Y, X, Y + 1)
      else
        CombineRgn(Result, Result, CreateRectRgn(XStart, Y, X, Y + 1), RGN_OR);
    end;
  end;
end;

procedure TButtonForm.FormCreate(Sender: TObject);
 begin
   Bmp := TBitmap.Create;
  try
    ButtonForm.FormStyle := fsStayOnTop;
      //загружаем картинку фона и растягиваем форму по размеру картинки
    Bmp.LoadFromFile('b.bmp');
    ButtonForm.width := bmp.Width;
    ButtonForm.Height := bmp.Height;
      //Создаем регион по картнике
    FRegion := CreateBRegion(Bmp);
      //Придаем форме регион
    SetWindowRGN(self.Handle, FRegion, True);
    DeleteObject(FRegion);
    ButtonForm.Width := ButtonForm.Width*2;
    ButtonForm.Canvas.Draw(0,0,bmp);
  finally
  end;
end;

Все работает замечательно.....но.....я бы хотел что бы при нажатии на форму она меняла к примеру свою ширину или высоту........но просто
использую к примеру Form.Width := 200 не дает никакого результата в чем проблема????? как форму после обрезания по фотке заставить еще изменять свои размеры по нажатию например на кнопочку