扫描了一些全是文字的书籍，页面都有些倾斜，求针对这样图片的自动批量旋转软件？ 不要求识别，只要求旋转正了。该如何处理

扫描了一些全是文字的书籍，页面都有些倾斜，求针对这样图片的自动批量旋转软件？ 不要求识别，只要求旋转正了。
扫描了一些全是文字的书籍，页面都有些倾斜，求针对这样图片的自动批量旋转软件？
不要求识别，只要求旋转正了。

------解决方案--------------------
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
TForm1 = class(TForm)
ImageCert: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure RotateImage;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
RotateImage;
end;

procedure TForm1.RotateImage;
var x,y : Integer;
TmpBitMap : TBitmap;
begin
TmpBitMap := TBitmap.Create;
try
TmpBitMap.Assign(ImageCert.Picture.Graphic);
with ImageCert do begin
Picture.Bitmap.Height := TmpBitMap.Width;
Picture.Bitmap.Width := TmpBitMap.Height;
for x:=0 to Height do
for y:=0 to Width do
Canvas.Pixels[TmpBitMap.Height-x,y] := TmpBitMap.Canvas.Pixels[y,x];
Height := TmpBitMap.Width;
Width := TmpBitMap.Height;
end;
finally
TmpBitMap.Free;
end;
end;
end.