http://forum.lazarus.freepascal.org/index.php?topic=33937.0 program consoleapp ; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads , {$ENDIF}{$ENDIF} Classes , SysUtils , CustApp { you can add units after this } , fpTimer ; type { TConsoleApp } TConsoleApp = class ( TCustomApplication ) protected procedure DoRun ; override ; public Timer1 : TFPTimer ; constructor Create ( TheOwner : TComponent ) ; override ; destructor Destroy ; override ; procedure Timer1Exec ( Sender : TObject ) ; end ; { TConsoleApp } procedure ...