[@Rafa3L]

Код:

var
sl: TStrings;
begin
 sl:= TStringList.Create;
 sl.LoadFromFile('.txt');
 if sl.IndexOf('RedHack') > -1 then // есть такой
 sl.Free;
end;