Überlappendes Application. ProcessMessages macht Unsinn

[Matze]

Also, ich denke nicht, dass es am Application.ProcessMessages liegt, denn es gaht ja auch folgender Code einwandfrei:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
begin
  for i := 1 to 5 do
  begin
    Application.ProcessMessages;
    for j := 1 to 10 do
      Application.ProcessMessages;
  end;
end;

Natürlich bringt der nix, aber da überschneidet's sich ja auch.