Pivoter un Bitmap

procedure spiegel_horizontal(Quelle, Ziel: TBitMap);
begin
Ziel.Assign(nil);
Ziel.width:=Quelle.width;
Ziel.height:=Quelle.height;
StretchBlt(Ziel.canvas.handle,0,0,Ziel.width,Ziel.height,Quelle.canvas.handle,0,
Quelle.height,Quelle.width, -Quelle.height,srccopy);
end;

procedure spiegel_vertikal(Quelle, Ziel: TBitMap);
begin
Ziel.Assign(nil);
Ziel.width:=Quelle.width;
Ziel.height:=Quelle.height;
StretchBlt(Ziel.canvas.handle,0,0,Ziel.width,Ziel.height,Quelle.canvas.handle,
Quelle.width,0,-Quelle.width,Quelle.height,srccopy);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
temp: TBitMap;

begin
temp:=TBitMap.Create;
temp.Assign(Image1.Picture.BitMap);
spiegel_vertikal(Temp,Image1.Picture.Bitmap);
Temp.Free;
end;