Graphischer Hint mit eigenen Bitmap

[Helmi]

Hallo,

dein Fehler liegt in der funtion:

Delphi-Quellcode:

Function THHint.GetHGraphic:TBitmap; 
Begin 
   Result:=TBitmap.Create; 
   Result.Assign(FHGraphic); 
   Result.Free; 
End;

Du darfst kein "Result.Free" aufrufen.
Der Rückgabewert, hier Result als Bitmap, ist beim Beenden
der function nicht mehr vorhanden (free), deswegen bekommst
du kein Bitmap.

Entfernst du die genannte Zeile, so bekommst du auch das
Bild ruckgeliefert, verursachst aber ein Speicherleck.