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?