Повернуть изображение

procedure RotateBitmap(SourceBitmap: TBitmap; var DestBitmap: TBitmap);
var x, y: Integer;
begin
  DestBitmap.Width := SourceBitmap.Height;
  DestBitmap.Height := SourceBitmap.Width;
  for x := 0 to SourceBitmap.Width - 1 do begin
    for y := 0 to SourceBitmap.Height - 1 do begin
      DestBitmap.Canvas.Pixels[y,x] := SourceBitmap.Canvas.Pixels[x,y];
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var bmp1, bmp2: TBitMap;
begin
  bmp1 := TBitMap.Create;
  bmp1.LoadFromFile('1.bmp');
  bmp2 := TBitMap.Create;
  RotateBitmap(bmp1, bmp2);
  bmp1.Free;
  bmp2.SaveToFile('2.bmp');
  bmp2.Free;
  ShowMessage('ok');
end;