drawgrid langsam

[Mr. Pink]

also ich brauche 4-5 mal so lange. entweder liegt es am restlichen code oder mein pc ist zu langsam^^ (p4, 2,5 ghz).

ich aknn ja mal den restlichen relevanten code posten (geht übrigens hierdrum:

Delphi-Quellcode:

procedure vor(x,y,r:integer);
begin
  for i:=1 to ende do
  begin
    if feld[x,y] then
    begin
      feld[x,y]:=false;
      if r<>1 then
        r:=r-1
      else
        r:=4;
    end
    else
    begin
      feld[x,y]:=true;
      if r<>4 then
        r:=r+1
      else
        r:=1;
    end;
    form1.drawgrid1.Refresh;
    {form1.Label2.Caption:='aktuell: '+inttostr(i);
     application.ProcessMessages;}
////////////////////////////////////////////////////////////////////////////////
    begin
      if r=1 then
      begin
        if y>=1 then
        y:=y-1
      else
        y:=99;
      end;
      if r=2 then
      begin
        if x<=98 then
          x:=x+1
        else
          x:=0;
      end;
      if r=3 then
      begin
        if y<=98 then
          y:=y+1
        else
          y:=0
      end;
      if r=4 then
      begin
        if x>=1 then
          x:=x-1
        else
          x:=99;
      end;
      end;
  end;
end;

jaa, ich weiß, is scheiße programmiert, aber ich wollts ja eigtl auch nicht veröffentlichen.

liegts denn iwie an dem code, dass es so langsam ist?