Source position: tcl80.pp line 879
function Tcl_Import(
interp: PTcl_Interp;
namespacePtr: PTcl_Namespace;
pattern: PChar;
allowOverwrite: Integer
):Integer;