форимрование списка ссылок

[Alter]

К чему изобретение велосипеда ExtractFileName(const FileName: string): string; ?
Он, но и остальные, которые могут понадобиться, существуют в стандартных модулях. Например ExtractFileName и другие подобные существует в SysUtils.
P.S: Переход по переменным, именам функций, процедур и т.д. с помощь зажатого Ctrl+ЛКМ(ыши)

[Slym]

Это велосипед с одним передним колесом
обрезает расширение - приведи стандартный аналог

[Аватар]

FileName:=Copy(tsr.Name,1,Length(tsr.Name)-Length(ExtractFileExt(tsr.Name)));

[Serge_Bliznykov]

ну и я предложу свой "велосипед":

... ChangeFileExt( ExtractFileName( tsr.Name ),'');

[Человек_Борща]

Расширением считается все до точки начиная с конца строки.
Потому сабж:

Delete(sFileName,LastDelimiter('.',sFileName),Length(sFileName));

вырезает расширение из sFileName.

[Alter]

Так вон уже сколько привели и еще можно привести. Оптимально это:

  ListBox1.Items.Add(ChangeFileExt(tsr.Name, ''));

Ладно, вот еще:

  ListBox1.Items.Add(Copy(tsr.Name, 1, LastDelimiter('.', tsr.Name)-1));

[Kix.IV]

Ещё два варианта:

Copy(s, 1, pos('.ink', s)-1));
Delete(s, Length(s)-3, Length(s));

[Serge_Bliznykov]

Kix.IV, во-первых, вы хотели сказать ... pos('.lnk', s)
во-вторых, а кто Вам обещал, что не найдётся файл с расширением .LNK ?
а во-третьих, я бы крайне не рекомендовал использовать приведённые Вами варианты(оба)! Крайне не рекомендова!
Да, скорее всего, они бы работали в данном случае (хоти и криво), но стоит изменить расширение для поиска и всё, баста карапузики, кончилися танцы...

извините за прямоту..