TBitmap vom falschen Type

[sexmagic]

Hallo Leute,

ich habe ein Problem das ich einfach nicht verstehe, ich möchte im Grunde nichts anders tun als ein JPEG als BMP speichern.

Dazu habe ich diese Prozedure verwendet:

Code:

procedure TForm1.JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

Und aufrufen tu ichs so:

Code:

Jpeg2Bmp(Label5.Caption);

Das Probelm ist aber das bei mir TBitmap nivht von der Klasse Graphics abgeleitet wirds sonder von der aus Windows.
Ich habe also keine Methoden zur verfügung, kein create, assign, safetofile.
Was kann ich tun damit das vom richtigen Type abgewandelt wird, und vor allem warum ist das so, ist das vielleicht normal?

Ich habe viel gegooglet und gesucht aber irgendwie scheine ich der einzige zu sein der diesews Problem hat.

Mein lösungsversuch war dann vor der Procedure den Typ zu definieren, das hab ich so gemacht:

Code:

type TBitmap = class (Graphics.TGraphic);

Dann wird der richtige Typ verwendt, aber das is doch nicht normal oder?
Weiters bekomme ich dann immer eine Fehlermeldung: TJPEGImage kann nicht zu TBitmap zugewiesen werden.

Wäre für Hilfe sehr dankbar, ich komme selber nicht drauf.

Danke

SM