Error con TBitmap

[esublim]

holatengo un codigo que en un proyecto me funciona bien en un from pero en al tratar de colocarlo en ptro fromn del mismo proyecto me da el siguiente error: E2003 Undeclared identifier: 'CreateFromFile';

Código Delphi [-]
var
  NewBitmap: TBitmap;
  MS1 : TMemoryStream;
  Surf: TBitmapSurface;
  JpgQuality : TBitmapCodecSaveParams;
begin

 Open.Execute;

 NewBitmap:=  TBitmap.CreateFromFile(Open.FileName); <----aqui da el error
 MS1 := TMemoryStream.Create;
 Surf := TBitmapSurface.create;

  try
    MS1.Position := 0;
    Surf.Assign(NewBitmap);
    JpgQuality.Quality := 50;   //   <<<-------------  ¡¡¡ AQUÍ !!!

    if not TBitmapCodecManager.SaveToStream(MS1, Surf, '.jpg', @JpgQuality) then
      raise EBitmapSavingFailed.Create('Error saving Bitmap to jpg');

    img1.Bitmap.CreateFromStream(MS1);
    img1.Bitmap.SaveToFile('prueba.jpg')

  finally
    NewBitmap.Free;
    MS1.Free;
    Surf.Free;
  end;
end;

como les comento, es un codigo que he usado en varios from del proyectop pero hay en uno en especifico que no me funciona. me podrian ayudar?

[esublim]

identifique el error. tengo en las uses:

Código Delphi [-]
uses windows

que es para los menssagebox, y al borrarla me da error en los mensage box, y al agregarla me da el error anterior con los TBITMAP. que hago?

[dec]

Hola a todos,

La clase "TBitmap" no dispone del método "CreateFromFile": en este caso, y, sin que sirva de precedente, el error es bastante claro. Lo que puedes hacer es algo así:

Código Delphi [-]
var
  NewBitmap: TBitmap;
begin
  NewBitmap := TBitmap.Create();
  try
    NewBitmap.LoadFromFile(Open.FileName);
    (* ... *)
  finally
    NewBitmap.Free();
  end;
end;