program mousetest; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, uform { you can add units after this }; {$R *.res} begin Application.Scaled:=True; Application.Title:='Demo mouse'; RequireDerivedFormResource:=True; Application.Initialize; Application.CreateForm(TFormMain, FormMain); Application.Run; end.