Sumar Label

[Caral]

Bueno otra consulta aparte
Tengo varias label:

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:

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;