{$mode objfpc}{$H+}

uses
 Classes
 { add your units here };

function getone:integer; stdcall;
begin
 result:=1;
end;

exports getone;

end.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
 Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons;

type

 { TForm1 }

 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { private declarations }
 public
   { public declarations }
 end;

var
 Form1: TForm1;

implementation

{ TForm1 }

function getone:integer; stdcall; external 'libproject1.so';

procedure TForm1.Button1Click(Sender: TObject);
begin
 showmessage(inttostr(getone));
end;

initialization
 {$I unit1.lrs}

end.