Sumar Label

[[Caral]]

Bueno otra consulta aparte
Tengo varias label:

Código Delphi [-]
Label4.Caption:= 'X';
Label5.Caption:= 'X';
Label6.Caption:= 'X';
// y en otro lado tengo
Label4.Caption:= 'OK';
Label5.Caption:= 'OK';
Label6.Caption:= 'OK';

Bueno como sumo esto, me explico si en el examen saco 1 OK o dos como hago para contarlos, si hago una variable, como la destruyo despues, ya que esta queda en memoria mientras que el programa funciona.
Saludos y gracias de antemano.
Ya se Preguntas faciles, pero hay dias de dias.
Saludos

[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;