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