Как убрать расширение файлов в TreeView?

[Festy]

Подскажите как убрать расширение файлов, которые подгружаются в TreeView?(нужно чтоб отображалось только имя файла)
Понимаю что функция pos даёт позицию "." и что нужно удалить остальное, но записать правильно не удаётся

procedure TForm1.Image3Click(Sender: TObject);
var searchResult,searchResultDir : TSearchRec; node: TTreeNode;
begin
Free_ScrollBoxes(ScrollBox5 as TObject);
razdel := 'Название';
Tree.OnDblClick:= VideoListDblClick;

if FindFirst('materials\Название\*', faDirectory, searchResultDir) = 0 then
begin
FindNext(searchResultDir);
FindNext(searchResultDir);
if searchResultDir.Name[1] <> '.' then
begin
repeat
node := Tree.Items.Add(nil,searchResultDir. Name);

if FindFirst('materials\Название\'+sea rchResultDir.Name+'\*', faAnyFile, searchResult) = 0 then
begin
FindNext(searchResult);
FindNext(searchResult);
repeat
if searchResult.Name[1] <> '.' then
Tree.Items.AddChild(node,Copy(Extra ctFileName(searchResult.Name),1,(La stDelimiter(Chr(46),
ExtractFileName(searchResult.Name)+ ExtractFileExt(searchResult.Name))-1)));
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
until FindNext(searchResultDir) <> 0;
FindClose(searchResultDir);
end;
end;

ScrollBoxesMove(Sender);
select_punkt:=True;
end;

[Stilet]

Например так:

     
 s:=ExtractFileName(searchResult.Name);
 Tree.Items.AddChild(node,Copy(s,1,Length(ExtractFileExt(searchResult.Name)-1)));

Только тогда встает проблема, если вдруг нужно будет отличить один файл от другого с одинаковым именем и разными расширениями.

[Festy]

выдаёт ошибочку..

[dcc32 Error] Unit1.pas(395): E2010 Incompatible types: 'string' and 'Integer'

[Stilet]

выдаёт ошибочку

Ну так подумай хорошенько где она и как ее исправить )