testfclsound.lpr 222 B

123456789101112131415
  1. program testfclsound;
  2. {$mode objfpc}{$H+}
  3. uses
  4. Interfaces, Forms, GuiTestRunner, tcwavreader;
  5. {$R *.res}
  6. begin
  7. Application.Initialize;
  8. Application.CreateForm(TGuiTestRunner, TestRunner);
  9. Application.Run;
  10. end.