Image zeigen ohne Form darzustellen

[Gandalfus]

Hab ich mal schnell hingetippt ka obs fehlerfrei ist:

Delphi-Quellcode:

procedure erstelleregion(Bitmap: TBitmap);
var
  HR: HRgn;
  ZwischenspeicherR: HRgn;
begin
  HR := CreateRectRgn(0,0,0,0)
  for x:=0 to bitmap.width do
  begin
    for y:=0 to bitmap.height do
    begin
      IF bitmap.canvas.pixels[x,y] <> transparentfarbe then 
      begin
       ZwischenspeicherR := CreateRectRgn(x,y,1+x,1+y);
       CombineRgn(HR, HR, ZwischenspeicherR, RGN_OR );
       DeleteObject(ZwischenspeicherR);
      end;
    end;
  end;

  SetWindowRgn(handle, HR, True);
  DeleteObject(hr);
end;