Не работает процедура

← →
Adios © (2006-03-06 18:06) [0]

Компилятор на процедуру не ругается, но в запущеном проекте она не работает:

procedure Tmenu1.choiseClick(Sender: TObject);
begin
FileExt := AnsiUpperCase(ExtractFileExt(FileListBox1.Filename));
if FileExt=".jpg" then
begin
label2.Caption:=FileExt;
JPEGtoBMP(filelistbox1.FileName);------- описанная процедура, она работает, проверял отдельно
end;
if FileExt=".bmp" then
begin
label2.Caption:=FileExt;
end;
panel1.SetFocus
end;
end.

помогите найти ошибку

← →
Desdechado © (2006-03-06 18:10) [1]

чрезвычайно понятное описаниепроблемы, я аж растерялся от обилия информации

← →
Adios © (2006-03-06 18:15) [2]

если убрать If then, то она работать начинает, тока если это будет не jpg, то в запущеном проекте вылетает ошибка

← →
Desdechado © (2006-03-06 18:25) [3]

см. сюда
FileExt := AnsiUpperCase
if FileExt=".jpg" then

← →
Adios © (2006-03-06 18:28) [4]

а по точнее можно?

← →
Desdechado © (2006-03-06 18:33) [5]

FileExt := AnsiUpperCase
if FileExt=".jpg" then

LOL

Не работает процедура Найти похожие ветки