Tcl_GetAlias

function Tcl_GetAlias(

  interp: PTcl_Interp;

  srcCmd: PAnsiChar;

  var targetInterp: PTcl_Interp;

  var targetCmd: PAnsiChar;

  var argc: Integer;

  var argv: Tcl_Argv

):Integer;