zeichen problem beim scrollen

[mimi]

Hallo,
habe da ein kleines problem:

Delphi-Quellcode:

var 
  x,y,i,p,m:Integer; 
begin 
  GLXDraw.Clear; 
//  sx:=0; sy:=0; 

  if Player.Players[Player.index].x-Player.DX >= 0 then 
    p:=(Player.Players[Player.index].x-Player.DX) 
  else 
    p:=0; 


  for x:=0 to MapX  do begin 
    for y:=0 to MapY do begin 

      if Karte[x,y].typ > -1 then begin 
        for i:=0 to High(Karte[x,y].Tex) do begin 
          if x-p >0 then 
            m:=x-p 
          else 
            m:=p-x; 
          if p > 0 then 
            GLXImageList.Items[Karte[x,y].typ].Draw(m * MapS,Y*MapS,Karte[x,y].Tex[i] ) 
          else 
            GLXImageList.Items[Karte[x,y].typ].Draw( X*MapS,Y*MapS,Karte[x,y].Tex[i] ) 

        end; 
      end; 

    end; 
  end;

warum geht das nicht?
er zeichnet nicht richtig !!!