Рамка на Image Delphi

[zvygin1964]

Не рисуется рамка:

procedure TForm1.Button1Click(Sender: TObject);
begin  	//не работает: Incompatible types: 'TBrush' and 'TFormBorderStyle'
//вы не поверите, но это из http://www.programmersclub.ru/рамка-для-image/     
Image1.Canvas.Brush:=bsNone;
Image1.Canvas.pen.Color := clBlack;
Image1.Canvas.Pen.Width:=10;
Image1.Canvas.Rectangle(584, 64,    584+Image1.Width,   64+ Image4.Height);
end;

Рисуется, но слишком тонкая:

procedure TForm1.Button1Click(Sender: TObject);
 begin  //работает, но выводит очень тонкую
  with Image1.Canvas do 
  begin
    MoveTo(0, 0);
    LineTo(Image1.Width-1, 0);
    LineTo(Image1.Width-1, Image1.Height-1);
    LineTo(0, Image1.Height-1);
    LineTo(0, 0);
    end;
end;

Не рисуется:

procedure TForm1.Button1Click(Sender: TObject);//не работает
begin
   Image1.Canvas.Brush.Style := bsClear;
   Image1.Canvas.pen.Color := clBlack;
   Image1.Canvas.Pen.Width:=10;
   Image1.Canvas.Rectangle(584, 64,584+Image1.Width,64+Image1.Height);
end;

Покажите рабочий вариант толстой рамки.

[newerow1989]

Убрать:

Image1.Canvas.Brush.Style := bsClear;

Изменить:

Image1.Canvas.Rectangle(0, 0,Image1.Width-1,Image1.Height-1);

[zvygin1964]

Такое уже пробовал. Убивается изображение, появляется пустое белое поле.

[newerow1989]

Тогда оставить:

Image1.Canvas.Brush.Style := bsClear;

[zvygin1964]

Работает, но тонко. Где тут ширина пера?
Явно не Image1.Canvas.Pen.Width:=10;

[newerow1989]

Image1.Canvas.Pen.Width:=10;

[zvygin1964]

Нет, она не слушается Image1.Canvas.Pen.Width:=80;

Вот картинка:

[newerow1989]

Картинку в студию

[BDA]

Delphi 7:

img1.Canvas.Brush.Style := bsClear;
img1.Canvas.Pen.Color := clBlack;
img1.Canvas.Pen.Width := 10;
img1.Canvas.Rectangle(0, 0, img1.Width, img1.Height);

[newerow1989]

У меня так получилось!