unit Unit1;  

interface  

uses  
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  
  ExtCtrls, StdCtrls, Buttons;  

type  
  TForm1 = class(TForm)  
    Image1: TImage;  
    Button1: TButton;  
    procedure FormCreate(Sender: TObject);  
    procedure Button1Click(Sender: TObject);  
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;  
      Shift: TShiftState; X, Y: Integer);  
  private  
    function CreateRegion(wMask: TBitmap; wColor: TColor;  
      hControl: THandle): HRGN;  
    { Private declarations }  
  public  
    { Public declarations }  
  end;  

var  
  Form1: TForm1;  

implementation  

{$R *.DFM}  

function Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle): HRGN;  
var  
  dc, dc_c: HDC;  
  rgn: HRGN;  
  x, y: integer;  
  coord: TPoint;  
  line: boolean;  
  color: TColor;  
begin  
  dc := GetWindowDC(hControl);  
  dc_c := CreateCompatibleDC(dc);  
  SelectObject(dc_c, wMask.Handle);  
  BeginPath(dc);  
  for x:=0 to wMask.Width-1 do  
  begin  
    line := false;  
    for y:=0 to wMask.Height-1 do  
    begin  
      color := GetPixel(dc_c, x, y);  
      if not (color = wColor) then  
      begin  
        if not line then  
        begin  
          line := true;  
          coord.x := x;  
          coord.y := y;  
        end;  
      end;  
      if (color = wColor) or (y=wMask.Height-1) then  
      begin  
        if line then  
        begin