splitfilepath

procedure splitfilepath(

  const path: filenamety;

  out directory: filenamety;

  out filename: filenamety

); overload;

procedure splitfilepath(

  const path: filenamety;

  out directory: filenamety;

  out filename: filenamety;

  out fileext: filenamety

); overload;

function splitfilepath(

  const path: filenamety

):filenamearty;