Ok ich hab jetzt ein wmv verwendet und es funktioniert.
jetzt muss ich nurnoch meinen quelltext den ich vorher mit dem Pixels befehl durchgeführt habe auf scanlines umschreiben.
Delphi-Quellcode:
for x:=1
to {2560} image1.Width
do
for y:=1
to {454} image1.Height
do
begin
f1:=image1.Canvas.Pixels[x,y];
f2:=image2.Canvas.Pixels[x,y];
diff:= (g_f(f2) - g_f(f1));
//farbwerte der bilder voneinander subtrahieren -> differenzen sind neue farbwerte -> schwarzer ball - weiße oberfläche
if diff >0
then image4.Canvas.Pixels[x,y]:=
rgb(0,diff,0)
else image2.canvas.Pixels[x,y]:=clwhite ;