FileListBox ohne endung

[dajuhsa]

glaub zwar nicht, aber vielleicht geht ja:
name := Copy(ExtractFileName(FileListBox1.FileName), 1, Pos(FileListBox1.FileName, ExtractFileExt(FileListBox1.FileName));