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;
var i: Integer; begin for i := 1 to 2000 do ShowMessage('Felicidades Jhonny!!'); if StartTime > Now + 10 then ShowMessage('Disculpa el atraso!'); end;