Пример из книги "Библия делфи"

[Aleksey1989]

Здравствуйте. Помогите, пожалуйста, разобраться с примером кода из книги.

procedure TForm1.ClipboardChanged; 
var 
 I: Integer; 
begin 
 PasteButton.Enabled := False; 
 for I := 0 to Clipboard.FormatCount - 1 do 
  begin 
 if Clipboard.HasFormat(CF_BITMAP) then 
    begin 
     PasteButton.Enabled := True; 
     Break; 
    end; 
  end; 
end;

Описание: Для начала я делаю кнопку «Вставить» неактивной. Потом я запускаю цикл от 0 до
количества форматов в буфере обмена Clipboard.FormatCount. Внутри цикла происходит
проверка, если формат соответствует CF_BITMAP, то кнопку «Вставить» можно делать
активной и прерывать цикл проверки.

Собственно то, что мне не понятно: зачем в этом примере необходимо воспользоваться циклом, нельзя просто обойтись Clipboard.HasFormat(CF_BITMAP)?

[ZvEr_HaCkEr]

нет,нельзя.так как цикл в данном случае проверяет буфер на наличие объекта bitmap, и если он находится, то управление передается вот этому обработчику

     PasteButton.Enabled := True; 
     Break;

[Aleksey1989]

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

нет,нельзя.так как цикл в данном случае проверяет буфер на наличие объекта bitmap

HasFormat(формат), если я не путаю, возвращает булево значение: true-данные в буфере соответстуют формату, и false - в обратном случае. Дак зачем же нам проверять формат драйверов Clipboard.CountFormat раз, разве одного недостаточно, ведь будет происходить одно и то же, или я не прав?