[Doctor_Che]

Код:

 if LowerCase(ExtractFileExt(FileListBox1.FileName)) = '.bmp'
    then begin
    Image1.Picture.LoadFromFile(FileListBox1.FileName); //ðèñóåì èçîáðàæåíèå, ïóòü áåðåòñÿ èç FileListBox
    end
    else begin
    Image1.Picture:= nil;
    end;