TBitmap i TGraphicControl komponent

Jeg arbejder pt. med stort set det samme og jeg har ingen problemer med at bruge TBitMap. Her er et 'klip' af min kode:

type
  TGame = class(TGraphicControl)
  private
    FBackGround: TBitMap;
  protected
    procedure SetBackGround(Value: TBitMap);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property BackGround: TBitMap read FBackGround write SetBackGround;
  end;

procedure Register;

implementation

constructor TGame.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FBackGround := TBitMap.Create;
end;

procedure TGame.SetBackGround(Value: TBitMap);
begin
  FBackGround.Assign(Value);
end;

destructor TGame.Destroy;
begin
  FBackGround.Free;
  inherited Destroy;
end;

Jeg har selv fundet ud af hvad det er der sker. Jeg prøvede forsøgs mæssigt at lave linie om til:

bmpTemp := TPicture.Create;

Dette resulterede i følgende fejl:

Incompatible types: 'tagBITMAP' and 'TPicture'

tagBitmap findes i Windows uniten:

  PBitmap = ^TBitmap;
  {$EXTERNALSYM tagBITMAP}
  tagBITMAP = packed record
    bmType: Longint;
    bmWidth: Longint;
    bmHeight: Longint;
    bmWidthBytes: Longint;
    bmPlanes: Word;
    bmBitsPixel: Word;
    bmBits: Pointer;
  end;
  TBitmap = tagBITMAP;

Bemærk den sidste linie!!!

Problemet kunne jeg løse ved at bytte om på Windows og Graphics i uses listen, så Graphics stod til sidst. Fatter dog ikke hvad den type definition laver i windows uniten.... Mystisk!!!

Husk at lukke spørgsmålet! ;)

Spørgmålet er lukket