[Raskolnikov]

А правила выбора цвета одинаковы для всех Label? Если так, то:

Код:

var
  i: Integer;
begin
  for i:= 0 to ComponentCount- 1 do
    if Components[i] is TLabel then
      with (Components[i] as TLabel) do
      begin
        if Caption = 'Сдал' then
          Font.Color:= clGreen;
        if Caption = 'Не сдал' then
          Font.Color:= clRed;
        if Caption = 'Начал делать' then
          Font.Color:= clBlue;
      end; { with }
end;