Bild an der x-aschse spiegeln

[andiak]

Auf der Form1 habe ich jetzt 2 Buttons einen BHorzontal und BVertikal und in der UBild folgendes hinzugefügt

Delphi-Quellcode:

type
...
 BHorizontal: TButton;
 BVertikal: TButton;
 procedure BHorizontalClick(Sender: TObject);
 procedure BVertikalClick(Sender: TObject);
...

und folgende zwei proceduren in der UBild

Delphi-Quellcode:

procedure TForm1.BHorizontalClick(Sender: TObject);
begin
  Spiegele(Image1)
end;
...
procedure TForm1.BVertikalClick(Sender: TObject);
begin
   Spiegele2(Image1)
end;

und hier ist meine gesammte UFabian

Delphi-Quellcode:

unit UFabian;

interface
uses ExtCtrls;

procedure Spiegele(Bild: TImage);
procedure Spiegele2(Bild: TImage);

implementation
 uses
  Windows, Graphics;


procedure Spiegele(Bild: TImage);
var
  lBmp: TBitmap;
begin
  lBmp := TBitmap.Create;
  try
    lBmp.Assign(Bild.Picture.Graphic);

    StretchBlt(lBmp.Canvas.Handle,
                 0,
                 0,
                 lBmp.Width,
                 lBmp.Height,
               lBmp.Canvas.Handle,
                 0,
                 lBmp.Height,
                 lBmp.Width,
                 -lBmp.Height,
               SRCCOPY);

    Bild.Picture.Assign(lBmp);;
  finally
    lBmp.Free;
  end;
end;

procedure Spiegele2(Bild: TImage);
var
  lBmp: TBitmap;
begin
  lBmp := TBitmap.Create;
  try
    lBmp.Assign(Bild.Picture.Graphic);

    StretchBlt(lBmp.Canvas.Handle,
                 0,
                 0,
                 lBmp.Width,
                 lBmp.Height,
               lBmp.Canvas.Handle,
                 lBmp.Width,
                 0,
                -lBmp.Width,
                 lBmp.Height,
               SRCCOPY);
               
    Bild.Picture.Assign(lBmp);;
  finally
    lBmp.Free;
  end;
end;

procedure TForm1.BHorizontalClick(Sender: TObject);
begin
   Spiegele(Image1)
end;

procedure TForm1.BVertikalClick(Sender: TObject);
begin
  Spiegele2(Image1);
end;



end.

Bekomm aber einige Fehler ich poste sie mal alle

[Fehler] UFabian.pas(66): ';' erwartet, aber '.' gefunden
[Fehler] UFabian.pas(68): Undefinierter Bezeichner: 'Image1'
[Fehler] UFabian.pas(71): Bezeichner redefiniert: 'TForm1'
[Fehler] UFabian.pas(73): Undefinierter Bezeichner: 'Image1'
[Fataler Fehler] UBild.pas(35): Verwendete Unit 'UFabian.pas' kann nicht compiliert werden