Form-Icon wird invers angezeigt

[Bummi]

ich könnte folgendes anbieten

Delphi-Quellcode:

procedure Bitmap2Icon(BMP: TBitmap; Ico: TIcon);
var
    IconInfo : TIconInfo;
begin
        BMP.PixelFormat   := pf24bit;
        IconInfo.fIcon    := true;
        IconInfo.xHotspot := 0;
        IconInfo.yHotspot := 0;
        IconInfo.hbmMask  := BMP.Handle;
        IconInfo.hbmColor := BMP.Handle;
        Ico.Handle        := CreateIconIndirect(IconInfo);
end;



procedure TForm2.Button1Click(Sender: TObject);
begin
  Bitmap2Icon(Image1.Picture.Bitmap,Icon);
end;