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