Ich habs jetzt mal irgendwie ein wenig umgeschrieben... das jetzt keine fehler mehr kommen und ich das programm wenigstens starten kann so sieht der quellcode jetzt aus:
Delphi-Quellcode:
procedure Spiegele (Bild:TImage);
var i,j:integer;
begin
for i:=0 to Bild.width do
for j:=0 to Bild.height do
Bild.canvas.pixels[i,j]:=Bild.canvas.pixels[Bild.width-i,Bild.height-j];
end;
das problem ist er nimmt jetzt nur die rechte seite des bildes und spiegelt es :/