Endlosschleife in Paint-Methode

[almisoft]

Schreibe gerade eine Container-Kombonente "TStateGroupBox", in der in einer TGroupBox ein TImage dargestellt werden soll.
Die Paint-Methode der TGroupBox überschreibe ich dabei:

Delphi-Quellcode:

TStateGroupBox = class(TCustomGroupBox)
  private
    FImage:TImage;
    FImages:TCustomImageList; 
  protected
    procedure Paint; override;
  public
    ...
end;

procedure TStateGroupBox.Paint;
begin
  inherited;
  FImage.Picture.Bitmap:=nil;
  FImages.Draw(FImage.Canvas,0,0,0);
end;

Nun flackert schon im Entwurfsmodus die Grafik, d.h. wird ständig gelöscht und neu gezeichnet.
Ich vermute, das Neuzeichnen von FImage bewirkt ein Neuzeichnen der übergeordneten GroupBox. Also wird deren Paint-Methode aufgerufen, die das Image wieder neuzeichnen will -> Endlosschleife!

Wie macht man es richtig?

[blablab]

Das alles brauchst du doch gar nicht, ein Image wird in der OnPaint Methode automatisch neu gezeichnet. Du musst es nur einmal zeichnen, dann sollte es auch nicht mehr flimmern.