Проверка на тип(расширение) файла

[ZvEr_HaCkEr]

Здравствуйте, помогите разобраться с проверкой на расширение файла. В общих чертах: есть OpenPictureDialog и переменная, которой присваивается путь файла из OpenPictureDialog. Выглядит это примерно так:

if OpenPictureDialog1.Execute then
 begin
Var1:=OpenPictureDialog1.FileName;

После чего она принимает вид:

Var1='C:/User/1/Desktop/New Folder/olololo.jpg'(как пример)

Далее мне нужно разграничить процедуры по расширениям файлов:

if var1='*.png' then 
begin
----------------
end;

if var1='*.jpg' then 
begin
----------------
end;

И так далее. Но при нажатии на кнопку, ровным счетом, ничего не происходит. Что делаю не так?

P/S помниться есть функция ExtractFilePath, но с ней тоже ничего не выходит
P/S/S давно не пользовался Delphi, поэтому уровень званий на данный момент почти нулевой

[BDA]

tmp := AnsiUpperCase(ExtractFileExt(var1));
if tmp = '.PNG' then
begin
...
end;

UPD
Пожалуйста

[ZvEr_HaCkEr]

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

tmp := AnsiUpperCase(ExtractFileExt(var1));
if tmp = '.PNG' then
begin
...
end;

Благодарю.....