Bild um angegebene 90° 180° 270° drehen

[andiak]

Bisher habe ich es geschaft mein Bild Vertikal und Horizontal zu spiegeln mit folgender proceduren:

Delphi-Quellcode:

procedure VertikalSpiegele(Bild1:TImage);
var    x,y:integer;
       hilf : TColor;
begin
  for x:=0 to Bild1.width div 2 - 1 do
   for y:=0 to Bild1.height - 1 do
   begin
    hilf := Bild1.canvas.pixels[x,y];
    Bild1.canvas.pixels[x,y]:=Bild1.canvas.pixels[Bild1.width-1-x,y];
    Bild1.canvas.pixels[Bild1.width-1-x,y] := hilf;
   end
end;

procedure HorizontalSpiegeln (Bild1:TImage);
var    x,y:integer;
       hilf : TColor;
begin
  for x:=0 to Bild1.width   - 1 do
   for y:=0 to Bild1.height div 2 - 1 do
   begin
    hilf := Bild1.canvas.pixels[x,y];
    Bild1.canvas.pixels[x,y]:=Bild1.canvas.pixels[x,Bild1.height-1-y];
    Bild1.canvas.pixels[x,Bild1.height-1-y] := hilf;
   end
end;

funktioniert alles

jetzt muss ich es nur noch hinbekommen das auf befehl das bild um angegeben 90°.... gedreht wird machen wollte ich das mit dem Objekt RatioBox und halt nen button...
Ne idee wie der befehl aussehen muss?
StretchBlt und co soll ich nicht verwenden sondern in der art wie ich das oben geschrieben habr :/