Проще через TStringList разбить строку по пробелам и сравнить элементы.
Код:
sl.Delimiter := ' ';
sl.DelimitedText := S;
if (Register_Familiya.Text = sl[0]) and (Register_Gruppa.Text = sl[3]) then { зарегистрирован };
lmikle: Bargest, скобАчки не забывай 