Hace poco yo estaba con este mismo problema, aunque yo lo que tenía que transformar era un jpg, pero creo que te servirá igual, chequealo para ver si te funciona. Aquí te dejo el código, creo que lo saqué de la sección de trucos o de algún hilo, lo que tengo claro es que lo obtuve, como tantas veces, en clubdelphi, pagina a la que le estoy muy agradecido, sobre todo a sus foreros.
Código Delphi
[-]
procedure TFrmGesArt.Convertir(Origen:string);var
Imagen: TPicture;
Bitmap: TBitmap;
begin
Imagen:= TPicture.Create;
try
Imagen.LoadFromFile(Origen);
if not (Imagen.Graphic is TBitmap) then
begin
Bitmap:= TBitmap.Create;
try
Bitmap.Width:= Imagen.Width;
Bitmap.Height:= Imagen.Height;
Bitmap.Canvas.Draw(0,0,Imagen.Graphic);
image4.Picture.Bitmap:=bitmap;
finally
Bitmap.Free;
end;
end else image4.picture.bitmap:=bitmap; finally
Imagen.Free;
end;
end;
Espero que te sirva de algo