I had a look into your code and maybe there is a little failure on

// Move and collide players
for p:=0 to 0 do
with pl[i] do begin
iy:=iy+5*lag/1000; // gravity

"with pl[i] do begin" must be "with pl[p] do begin"?

Thomas