Выделение предложения (Объекта) по клику

Label4.Font.Color:=clRed;

for i:=0 to ComponentCount-1 do
  if Components[i] is TLabel then TLabel(Components[i]).Font.Color:=...

Label4.Font.Color:=clRed;

procedure TForm1.Label3Click(Sender: TObject);
begin
 
 for I := 1 to 6 do
   with TLabel(FindComponent('Label' + IntToStr(I))) do
  Font.Color:=ClBlack;
 
Label3.Font.Color:=ClRed;
WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'html/1.html');
 
 
 
end;

type
  TLabel = class(Vcl.StdCtrls.TLabel)
  protected
    procedure Click; override;
  class var
    LastClicked : TLabel;
  end;
 
  TForm1 = class(TForm)
  // тут твоя форма, без изменений...
 
 
// А вот реализация метода Click:
{ TLabel }
 
procedure TLabel.Click;
begin
  if Assigned(LastClicked) then LastClicked.Font.Color := clBlack;
  Self.Font.Color := clRed;
  LastClicked := Self;
 
  inherited; // тут будут вызываться твои обработчики OnClick
end;
 
initialization
  TLabel.LastClicked := nil;