New SendText function with a string parameter to forget PChar conversion...

Remove of unused uses

begui/begui/imports/pascal/fdblib.pas

@@ -2,17 +2,21 @@ unit fdblib;
 
 interface
 
-{$linklib 'fdb'}
+procedure SendText(text: pchar);cdecl; external 'fdb';
-
+procedure SendText(text : string);
-uses
-  begui;
-
-procedure SendText(text: pchar);cdecl; external;
 
 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.
+end.