;         line := false;  
          MoveToEx(dc, coord.x, coord.y, nil);  
          LineTo(dc, coord.x, y);  
          LineTo(dc, coord.x + 1, y);  
          LineTo(dc, coord.x + 1, coord.y);  
          CloseFigure(dc);  
        end;  
      end;  
    end;  
  end;  
  EndPath(dc);  
  rgn := PathToRegion(dc);  
  ReleaseDC(hControl, dc);  
  Result := rgn;  
end;  

procedure TForm1.FormCreate(Sender: TObject);  
var  
  w1:TBitmap;  
  w2:TColor;  
  rgn: HRGN;  
begin  
  w1:=TBitmap.Create;  
  w1.Assign(image1.Picture.Bitmap);  
  w2:=w1.Canvas.Pixels[0,0];  
  rgn := CreateRegion(w1,w2,Handle);  
  if rgn<>0 then  
  begin  
     SetWindowRgn(Handle, rgn, true);  
  end;  
  w1.Free;  
end;  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  Close;  
end;  

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;  
  Shift: TShiftState; X, Y: Integer);  
begin  
  ReleaseCapture;  
  SendMessage(Handle, WM_SYSCOMMAND, $F012, 0);  
end;  

end.