Vista tampoco es tan malo

[marcoszorrilla]

Código Delphi [-]
Var
n:Integer;
begin
 For n:=1 to 1000000 do
 begin
 ShowMessage('Jaaaaaaaaaaaaaaa....');
 end;
end;

Un Saludo.