Получение расширения файла

[AndreyFreemant]

Люди, помогите пожалуйста

.....
var
filename,exten: string;
begin
if OpenDialog1.Execute then 
begin 
filename:=opendialog1.FileName;
##########проблема###########
(вот тут нужно как то из filename выдрать расширение открытого файла и поместить его в exten в виде например, "mp3" или "bmp" но без кавычек)
##########проблема###########
end;
.....

Спасибо

[Toxa]

ExtractFileExt тебе в помощь, он возвращает кажется с точкой, но ее можно отсечь с помощью copy

[VVM]

  exten := ExtractFileExt(OpenDialog1.FileName)
  delete(exten, 1, 1);