program foglietto;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces,  // this includes the LCL widgetset
  Forms, main;

{$R *.res}
{
Function foglietto(Str2Pass: PChar): Integer; stdcall;

begin
  Application.Title:='Foglietto';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  Form1.CaricaLibro(); //Precarica i dati dai DBF

  Application.Run;
end;

exports
     foglietto;

begin
end.}

begin
  Application.Title:='Foglietto';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);

  Form1.CaricaLibro(); //Precarica i dati dai DBF

  Application.Run;
end.

