delphi Рамка Image

[Pilyla]

Не получается вывести рамку для Image, так как выводит белый закрашенный прямоугольник. в чем дело-не пойму. помогите

procedure TForm1.Image4Click(Sender: TObject);
begin
Image4.Canvas.pen.Color := clBlack;
Image4.Canvas.Pen.Width:=10;
Image4.Canvas.Rectangle(584, 64,    584+Image4.Width,   64+ Image4.Height);
 end;