Código Delphi [-] if UpperCase(ExtractFileExt(Edit1.Text)) = '.BMP' then ...
if UpperCase(ExtractFileExt(Edit1.Text)) = '.BMP' then ...