[*Caro*]

Hola pablopessoa, ¿desde que parte tienes problemas?, debes recorrer tu TStringList, cada línea se te cargara en cada posición de tu StringList, buscas "Marcas" con la función Pos.

Código Delphi [-]
 for i:=0 to sl.Count-1 do
  begin
    if Pos('Marcas', sl[i])>0 then
     begin
       shomessage('Se ha encontrado en la línea'+IntToStr(i));
       break;
     end;
  end;

Saluditos