Como saca la extension?

[dec]

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.