Wyświetlenie nazwy pliku

Witam nie umie sobie poradzić z przypuszczalnie banalną rzeczą aczkolwiek może ktoś mi podpowie jak to ugryźć:

Otwieram plik OpenDialog1 np.film.avi i chce żeby np. w labelu1 pokazała mi się jego nazwa

var
i: integer;
begin
if not OpenTextFileDialog1.Execute
  then ShowMessage('Open file was cancelled')
  else
  begin
    // Display the selected file names
    for i := 0 to OpenTextFileDialog1.Files.Count-1 do
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.avi', '');
      label1.Caption :=  OpenTextFileDialog1.FileName;
  end;
end; 

Ale zamiast pokazać sie nazwa pliku pokazuje mi się cała jego lokalizacja np. C:/costam/costam/plik.avi
Próbowałem też z
label1.Caption := OpenTextFileDialog1.Title;
ale po otwarciu pliku te pole ciągle jest puste...
Cóż tu zrobić by nazwa się pokazała?

ExtractFileName + F1

if not OpenTextFileDialog1.Execute
then ShowMessage('Open file was cancelled')
Zazwyczaj użytkownik się spodziewa, że po naciśnięciu Anuluj nie stanie się nic, a nie wyskoczy jakiś głupi komunikat ;-)

A do zmiany/usunięcia rozszerzenia nazwy pliku służy ChangeFileExt .

Dzięki madmike że mnie oświeciłeś :)

 var
nazwapliku : string;
begin
OpenTextFileDialog1.Execute;
OpenTextFileDialog1.Files.Count;
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.avi', '');
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.mkv', '');
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.mp4', '');
     OpenTextFileDialog1.FileName := ansireplacetext(OpenTextFileDialog1.FileName, '.wmv', '');

  nazwapliku := OpenTextFileDialog1.FileName;
  label1.Caption:=(ExtractFileName  (nazwapliku));

end;