[vtdeleon]

Saludos

Prueba con:

Código Delphi [-]
var
  I,N:Integer;
begin
  N:=0;
  for I := 0 to Self.ComponentCount - 1 do
    if Components[i] is TLabel then
      if TLabel(Components[i]).Caption='OK' then
      begin
        Inc(N);
      end;
  Edit1.Text:=IntToStr(N);
end;