Строки. Как вывести часть строки?

[Anfall]

Ситуация не совсем простая. Я делаю плеер мп3. В данный момент застопорился на проблеме. Если у человека не прописан мп3тег названия песни, как записать ИМЯ ФАЙЛА зная только D:\Music\ИМЯ ФАЙЛА.mp3

[FANATID]

юзай функцию copy()

[Greblin]

функция ExtractFileName(FullName)

[Anfall]

Спасибо! Я знаю. Но помогите реализовать как?
Допустим
есть D:\music\test.mp3
Приведите пример кода, чтобы test.mp3 оказалось в допустим переменной "а"

[Greblin]

b := 'D:\music\test.mp3'; a := ExtractFileName(b);

[Anfall]

Сообщение от Greblin

функция ExtractFileName(FullName)

Огромное спасибо!!!

Вопрос был к другому посту! (там где copy)

[roach1967]

Если пользоваться функцией COPY, то необходимо организовать поиск последнего символа '\'. (Функция POS не подходит - находит первое вхождение).
А если организован цикл, тогда проще уж пользоваться таким способом выделения имени:

Function ExtractName(FullName: string): string;
Var
	a: string;
	i: integer;
begin
	a:= '';		
	i:= length(FullName);
	While (FullName[i] <> '\') AND (i > 0) do begin
//		Здесь можно поставить преобразование символа, например заменять подчёркавание пробелом:
//		if FullName[i] = '_' then FullName[i]:= ' ';
//		Или ещё какую-нибудь замену, как необходимо.
		a:= FullName[i] + a;
		Dec(i);
	end;
	Result:= a;
end;

[Квэнди]

uses ansistrings;
.....
var s:AnsiString;
begin
s:='C:\Users\Павел\Desktop\вудзршсщьз\jcl-1.104.1.3248-htmlhelp-win.zip';
s:=ReverseString(s);
s:=Copy(s,1,pos('\',s)-1);
s:=ReverseString(s);

Не уверен что будет работать в версиях младше 2009