StretchDraw Icon

Følgende function virker ikke med iconer. Hvorfor ikke ??

function TForm1.KonverterFilToBMP(Filnavn: TFileName): TBitmap;
var
  Ikon: TIcon;
  JpegImage: TJpegImage;
  tmpBitmap: TBitmap;
  Rect: TRect;
begin
  Result := TBitmap.Create;
  Result.Width := 16;
  Result.Height := 16;
  Rect.Left := 0;
  Rect.Top := 0;
  Rect.Right := 16;
  Rect.Bottom := 16;

  if ExtractFileExt(Filnavn) = '.ico' then
    begin
      Ikon := TIcon.Create;
      Ikon.LoadFromFile(Filnavn);
      tmpBitmap := TBitmap.Create;
      tmpBitmap.Width := Ikon.Width;
      tmpBitmap.Height := Ikon.Height;
      tmpBitmap.Canvas.Draw(0,0,Ikon);
      Result.Canvas.StretchDraw(Rect, tmpBitmap);
    end;
  if (ExtractFileExt(Filnavn) = '.jpg') or (ExtractFileExt(Filnavn) = '.jpeg') then
    begin
      JpegImage := TJpegImage.Create;
      JpegImage.LoadFromFile(Filnavn);
      Result.Canvas.StretchDraw(Rect, JpegImage);
    end;
  if ExtractFileExt(Filnavn) = '.bmp' then
    begin
      tmpBitmap := TBitmap.Create;
      tmpBitmap.Width := 16;
      tmpBitmap.Height := 16;
      tmpBitmap.LoadFromFile(FilNavn);
      Result.Canvas.StretchDraw(Rect, tmpBitmap);
    end;
end;

/SpEeDy