diff --git a/begui/begui/imports/pascal/fdblib.pas b/begui/begui/imports/pascal/fdblib.pas
index 301e5ef..d750244 100644
--- a/begui/begui/imports/pascal/fdblib.pas
+++ b/begui/begui/imports/pascal/fdblib.pas
@@ -2,17 +2,21 @@ unit fdblib;
 
 interface
 
-{$linklib 'fdb'}
-
-uses
-  begui;
-
-procedure SendText(text: pchar);cdecl; external;
+procedure SendText(text: pchar);cdecl; external 'fdb';
+procedure SendText(text : string);
 
 procedure force;
 
 implementation
 
+procedure SendText(text : string);
+var
+  local : string;
+begin
+  local := text + #0;
+  SendText(@local[1]);
+end;
+
 procedure force;
 begin
   writeln('force');
@@ -25,4 +29,4 @@ initialization
 finalization
   SendText('App end');
 
-end.
\ No newline at end of file
+end.