[pva]

drovosek, учись изъясняться. Можно свернуть в такую форму:

Код:

var
  b_refs : array[1..5] of TPicture;
  i: integer;

begin
  b_refs[1] := b1;
  b_refs[2] := b2;
  b_refs[3] := b3;
  b_refs[4] := b4;
  b_refs[5] := b5;

  for i:=1 to 5 do
  begin
    if condition_match(a[i]) then b[i].Visible := false;
  end
end

А лучше вообще всё хранить не в b1..b5, а в массиве аналогично b_refs. Я исходил из предположения что элементы массива a не приводятся к TPicture (иначе можно было бы пользоваться a).
мне не хватает HTML-ного тега <var>, чтобы отделять имена переменных от обычного текста