Hola,
Prueba a ver con algo más o menos como esto:
Código Delphi
[-]
var
fileName: string;
begin
if OpenDialog1.Execute then
begin
fileName := ExtractFileName(OpenDialog1.FileName);
fileName := ChangeFileExtension(fileName, '');
end;
end;
Es decir, se trata de usar la función "ChangeFileExtension()", sólo que, en lugar de indicarle una extensión (para cambiarla en el nombre de archivo) le pasamos una cadena vacía, de modo que lo que se consigue es quitar la extensión del nombre del archivo.
