Eso se debe a que un TImage.Picture sólo tiene un TBitmap si contiene una imagen BMP (es decir, un bitmap
).
Cuando la imagen es de otro tipo, el objeto bitmap no tiene nada adentro.
Lo que podrías hacer, antes de llamar a la rutina en cuestión, es convertir a bitmap. Lógicamente dejás de tener un jpg para pasar a tener un bitmap.
Código Delphi
[-]
procedure TForm1.Image2Click(Sender: TObject);
var Bmp: TBitmap;
begin
Bmp:= TBitmap.Create;
Bmp.Assign(image1.Picture.Graphic);
Antialiasing(Bmp, Image2.Picture.Bitmap);
Bmp.Free;
end;
¿Se entiende?
Saludongos.