[danswin]

Вот я тут нарыл нужно както убыстрить перемешение кто поможет?

procedure TForm1.Button2Click(Sender: TObject);
var bmp:tbitmap;
i,j:integer;

begin
bmp:=tbitmap.Create;
bmp.Height:=DBImage1.Picture.Bitmap.Width;
bmp.Width:=DBImage1.Picture.Bitmap.Height;

for i:=0 to DBImage1.Picture.Bitmap.Height-1 do
for j:=0 to DBImage1.Picture.Bitmap.Width-1 do
bmp.Canvas.Pixels[i,j]:=DBImage1.Picture.Bitmap.Canvas.Pixels[j,i];

DBImage1.Picture.Assign(bmp);
bmp.Free;
end;