procedure TForm1.Button1Click(Sender: TObject);
var x: real;
begin
  try x:=StrToFloat(Edit1.Text);
   // Id:=LoadLibrary('MyLibrary.dll');   // при ОС Windows
      Id:=LoadLibrary('libmylibrary.so'); // при ОС Ubuntu або Linux Mint
      if Id = 0 then begin ShowMessage('Помилка відкриття бібліотеки!');
                           exit;
                     end;
      f2:= Tf(GetProcAddress(Id, 'f2'));
      f3:= Tf(GetProcAddress(Id, 'f3'));
      Label1.Caption:=FloatToStr(f2(x));
      Label2.Caption:=FloatToStr(f3(x));
      FreeLibrary(Id);
  except on Exception : EConvertError
         do ShowMessage('Хибний запис числа!');
  end;
end;