Einrücken ::: ::: Wie rückt ihr ein?

[xZise]

Also ich rücke immer so ein:

Delphi-Quellcode:

procedure SetVar(myVar : Integer);
var
  i : Integer;
begin
  if myVar > 255 then
    for i := 256 to myVar do begin
      inc(myVar, myVar * i);
    end;
end;