Gg me las tuve que ingeniar pero ya lo cambio por las dudas dejo publicado mi code para que lo ven nada mas.
Código Delphi
[-]
var
imagen: TPicture;
Jpg: TJPEGImage;
bmp: TBitMap;
begin
with TOpenDialog.Create(nil) do
try
Filter:= 'Archivos de imagen(*.bmp;*.ico;*.jpg)|*.bmp;*.ico;*.jpg';
if Execute then
begin
Fondo:= TPicture.Create;
try
imagen:= TPicture.Create;
imagen.LoadFromFile(FileName);
if imagen.graphic is tjpegImage then
Jpg:= TJPEGImage.Create
else
if imagen.graphic is tbitmap then
bmp:= TBitMap.Create;
Obviamente gracias manes y saludos.