diff --git a/begui/begui/imports/pascal/fdblib.pas b/begui/begui/imports/pascal/fdblib.pas
new file mode 100644
index 0000000..301e5ef
--- /dev/null
+++ b/begui/begui/imports/pascal/fdblib.pas
@@ -0,0 +1,28 @@
+unit fdblib;
+
+interface
+
+{$linklib 'fdb'}
+
+uses
+  begui;
+
+procedure SendText(text: pchar);cdecl; external;
+
+procedure force;
+
+implementation
+
+procedure force;
+begin
+  writeln('force');
+end;
+
+initialization
+  SendText('----------------------');
+  SendText('App start');
+
+finalization
+  SendText('App end');
+
+end.
\ No newline at end of file