[ecfisa]

Hola.

Antes de utilizar vr_tags tenés que crear una instancia de la clase.
Como TStrings es abstracta debés usar un descendiente en la creación, por ejemplo TStringList.

Código Delphi [-]
procedure Tfr_principal.lb_buscarClick(Sender: TObject);
var vr_tags: TStrings;
begin
  vr_tags:= TStringList.Create;  // línea que faltaba
  vr_tags.Append('texto');
end;

En algún punto, luego que termines de usar vr_tags, deberias liberar el recurso con:

Código Delphi [-]
  vr_tags.Free;

Saludos.