[delphi.com.ar]

Viendo como viene este hilo:

Código Delphi [-]
var
  i: Integer;
begin
  for i := 1 to 2000 do
    ShowMessage('Felicidades Jhonny!!');

  if StartTime > Now + 10 then
    ShowMessage('Disculpa el atraso!');
end;