Como rotar una imagen en delphi x grados SIN DEFORMARLA?

[[ElDioni]]

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);//, Destino: 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;
        //Bitmap.SaveToFile(Destino);
      finally
        Bitmap.Free;
      end;
    end else image4.picture.bitmap:=bitmap;//Imagen.SaveToFile(destino);
  finally
    Imagen.Free;
  end;
end;

Espero que te sirva de algo