StretchDraw & Icon geht nicht ?

[turboPASCAL]

Hi,

Mal 'ne Frage, ich möchte ein Applocation.Icon mit StretchDraw in einen best. Bereich darstellen.
Doch mit:

Delphi-Quellcode:

//...
  Canvas.StretchDraw(RECT(0, 0, 16, 16), Application.Icon);

wird das Icon in voller Grösse (32x32) dargestellt.
Ich wollte es vermeiden das ich noch extra ein Bitmap für das Icon anlegen muss.
Ich möchte nur das kleine 16x16 Icon des Applications Icons.
ExtractIconEx ist ja nun och eine Variante aber muss das sein ?

Wer weis was ?

[turboPASCAL]

Delphi-Quellcode:

DrawIconEx(Canvas.Handle, 0, 0, Application.Icon.Handle,
              16,16, 0, 0, DI_NORMAL);

Ist das was ich suchte.