implementation

{$R *.dfm}
procedure RandomizeSG(var E: TStringGrid); external 'DLL.dll';
procedure ClearSG(var E: TStringGrid); external 'DLL.dll';
function CheckIfNonDescendingAndCorrectSG(var E: TStringGrid): Boolean;
  external 'DLL.dll';
procedure DrawTree(X, Y, dX, dY, R: Integer; Node: TBTree; Canvas: TCanvas);
  external 'DLL.dll';
procedure CorrectSGIntegerKey(var sgE: TStringGrid; Var Key: Char);
  external 'DLL.dll';
procedure CorrectEDTIntegerKey(var edtE: TEdit; Var Key: Char);
  external 'DLL.dll';