function ExtractPath(const Value: String; Delimiter: String=SLASH): String
X := ExtractPath('https://www.elevatesoft.com/index.html'); // X is 'https://www.elevatesoft.com'