Hola vcs, si esta así como dices donde en la línea esta solo SECUENCIA y nada mas, puedes utilizar la función IndexOf de la propiedad Lines del Memo.
Código Delphi
[-]
var
NumLinea : Integer;
begin
NumLinea := Memo1.Lines.IndexOf('SECUENCIA');
Memo2.Text := 'Activando secuencia '+Memo1.Lines[NumLinea+1];
Saluditos