Как сделать ТImage круглым

procedure MakeRounded(Control: TWinControl);
var R: TRect;
    Rgn: HRGN;
begin
 with Control do begin
  R := ClientRect;
  rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, width, width); 
// для окружности поиграйтесь p5,p6
  Perform(EM_GETRECT, 0, lParam(@r));
  InflateRect(r, 0, 0);
  Perform(EM_SETRECTNP, 0, lParam(@r));
  SetWindowRgn(Handle, rgn, True);
  Invalidate
 end
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
 MakeRounded(panel2);
end;

var
  Form1: TForm1;
  fRgn:  HRGN;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  fRgn:= CreateEllipticRgn(0,0,500,500);
//В CreateEllipticRgn(0,0,500,500);  можно вставить любой регион
end;

procedure TForm1.FormPaint(Sender: TObject);
var bmp: TBitmap;
begin
bmp := TBitmap.Create;
try
  bmp.LoadFromFile ('Screen.bmp');
  Canvas.Brush.Bitmap := bmp;
  PaintRgn (Canvas.Handle, fRgn);
  FrameRgn (Canvas.Handle, fRgn, Canvas.Brush.Handle, 2, 2);
finally
   Canvas.Brush.Color := clBlack;
   Canvas.Brush.Bitmap := nil;
   bmp.Free;
end;
end;

end.