Program example88; { This program demonstrates the LastDelimiter function } uses SysUtils; begin Writeln(LastDelimiter('\.:','c:\filename.ext')); end.