Quitar extension de nombre de archivo

[romeroja]

Encontre esta funcion que permite cambiar la extension

var 
  Fichero: string;
begin 
  Fichero := ChangeFileExt('archivo.txt', '.htm')
end;

'archivo.txt' seria tu String y en tu caso en ves de '.html' solo colocas ' ' y listo lo probe y funciono