Delphi-Quellcode:
for a:=1 to imgStats.Height-1 do
for b:=1 to imgStats.Width-1 do
imgStats.Canvas.Pixels[b,a] := imgStats.Canvas.Pixels[b+1,a];
hmm...damit müsste doch eigentlich alle pixel um eins verschoben werden. Nur bei mir erscheint dann ganz rechts alles schwarz???