home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2 / PcPro-2a.iso / Demos / ProDelph / DLLSUPP.ZIP / TESTPROC.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1999-02-12  |  318 b   |  30 lines
  1. UNIT TESTPROC;
  2. INTERFACE
  3. USES
  4.   Windows;
  5.  
  6. FUNCTION Start : Integer;
  7.  
  8. IMPLEMENTATION
  9.  
  10. PROCEDURE Leer;
  11. BEGIN
  12. END;
  13.  
  14. FUNCTION Start : Integer;
  15. VAR
  16.   x, i : Integer;
  17. begin
  18.   x := 1;
  19.   FOR i := 1 TO 10000 DO BEGIN
  20.     INC(x);
  21.     INC(x);
  22.     DEC(x);
  23.     Leer;
  24.   END;
  25.   Result := x;
  26. END;
  27.  
  28. END.
  29.  
  30.