안녕하세요... 나이렉스의 민성기 입니다.
흑흑... 그 부분은 정말 심각한 '오타'이군요... 어째서 그렇게
되었을까... 흑흑흑...

원래 그 부분은 OpenDialog에서 얻어낸 파일의 확장자를 비교하는
부분 입니다. 대체 NewEntry는 어디서 튀어나온 녀석인지 모르겠네요.

따라서 NewEntry^.IconName 전체를 그냥 OpenDialog.FileName으로
바꾸어 주세요...

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
   begin
      if Uppercase(ExtractFileExt(OpenDialog1.FileName)) = '.BMP' then
      begin
         Bitmap := TBitmap.Create;
         Bitmap.Height := 32;
         Bitmap.Width := 32;
         Bitmap.LoadFromFile(OpenDialog1.FileName);
         ChBmp := False;
         ListBox1.Items.AddObject('Delphi', Bitmap);
      end
      else
      begin
         Icon   := TIcon.Create;
         Icon.LoadFromFile(OpenDialog1.FileName);
         ChBmp := True;
         ListBox1.Items.AddObject('Delphi' , Icon);
      end;
   end;
end;

그럼..