SetRgnBorder example for Delphi

procedure TForm1.SetRgn ( x: L_INT; y: L_INT; crBorder: COLORREF );
begin
   LEADImage1.SetRgnBorder( x, y, crBorder, RGB(20,30,15), RGB(15,30,10), L_RGN_SET );
   LEADImage1.RgnFrameType:= ftAnimated;
end;