Wykorzystanie biblioteki napisanej w C

  struct _InterpMorf {
    int p, k; /* number of start node and end node */
    char *forma, /* segment (token) */
         *haslo, /* lemma */
         *interp; /* morphosyntactic tag */
  };
  typedef struct _InterpMorf InterpMorf;

[...]

  /* Analyse a piece of text:
     'tekst' - the string to be analysed. [...]
     RETURNS a  table of  InterpMorf structures representing  edges of
     the  resulting  graph.
  */
DLLIMPORT InterpMorf *morfeusz_analyse(char *tekst);

type
    InterpMorf = record
      p : integer;
      k : integer;
      forma : PChar;
      haslo : PChar;
      interp : PChar;
  end;

type TLIST = array of InterpMorf;
type TLISTPtr = ^TLIST;       

{...}

var h: Thandle;
    morfeusz_analyse: function(tekst: PChar) : TLISTPtr;
    r: TLISTPtr;
 begin
   h := LoadLibrary('morfeusz2.dll');
   if h >= 32 then
   begin
     Pointer(morfeusz_analyse) := GetProcAddress(h, 'morfeusz_analyse');

     r := morfeusz_analyse('Ten łańcuch jest testem a Ala będzie miała kota');

     showmessage( inttostr(length(r^) ));

     FreeLibrary(h);
   end
   else
     MessageDlg('Error: could not find BAR.DLL', mtError, [mbOk], 0);

end;          

type
    InterpMorf = record
      p : integer;
      k : integer;
      forma : PChar;
      haslo : PChar;
      interp : PChar;
end;

type InterpMorfPtr =^InterpMorf;
type AnalyseFunc = function(tekst: PChar) : InterpMorfPtr;  cdecl;

{...}

procedure TForm1.Button1Click(Sender: TObject);
var libHandle: TLibHandle; //uses dynlibs
    analyse : AnalyseFunc;
    list: ^InterpMorf;
    data : InterpMorf;
    i:integer;
    item: TListItem;
 begin
   libHandle := LoadLibrary('morfeusz2.dll');

   if libHandle >= 32 then
   begin
     Pointer(analyse) := GetProcAddress(libHandle, 'morfeusz_analyse');

     if Assigned(analyse) then
        begin
             list := analyse('Ten łańcuch jest testem a Ala będzie miała kota');

             for i:=0 to 100 do
             begin
               data := list[i];
               if data.p = -1
                 then break; // ostatni element listy

               item := ListView1.Items.Add();
               item.Caption:= inttostr(data.p);
               item.SubItems.Add( inttostr(data.k));
               item.SubItems.Add( data.forma );
               item.SubItems.Add( data.haslo );
               item.SubItems.Add( data.interp );
             end;
        end
        else MessageDlg('No "morfeusz_analyse()" in morfeusz2.dll !', mtError, [mbOk], 0);

     UnloadLibrary(libHandle);
   end
   else
     MessageDlg('Could not find morfeusz2.dll', mtError, [mbOk], 0);

end;