Wie ein VCL aus TBitmap erstellen ?

[madina]

Hallo,

ich programmiere zum ersten mal eine Klasse und weiß nicht viel darüber, aber zu mindest habe ich aus der Hilfe diese Klasse zusammengestellt.

1. ich habe vor aus einer TBitmap ein VCL-Klasse zu erstellen:

Delphi-Quellcode:

type 
  TAnalogUhr = class(TBitmap) 
  private 
    { Private-Deklarationen } 
    iOStu: Integer;
    iOMin: Integer;
    iOSec: Integer;

    Procedure SetStunde(iHour: Integer);
    Function  GetStunde: Integer;
  protected 
    { Protected-Deklarationen } 
  public 
    { Public-Deklarationen }    
  published 
    { Published-Deklarationen } 
    property Stunde: Integer read GetStunde write SetStunde default 0;
{    property Minute: Integer read GetMinute write SetMinute default 0;
    property Sekunde: Integer read GetSekunde write SetSekunde default 0;}
  end; 

procedure Register; 

implementation 

procedure Register; 
begin 
  RegisterComponents('Custom', [TAnalogUhr]); 
end;

Procedure TAnalogUhr.SetStunde(iHour: Integer);
begin
  if (Stunde<>iHour) then Stunde:= iHour;
end;

Function TAnalogUhr.GetStunde;
begin
  Result:= iOStu;
end;

Beim Kompilieren der Komponente kommt die Fehlermeldung:

"Inkompatible Typen: 'TComponentClass' und 'Class reference'"

2. wie kann ich diesen neuen Komponenten mit eigenen Icon dann versehen ?

mfg