вообще немного попроще получилось
T2.Text := AnsiLowerCase(T2.Text);
а
T2.Text := LowerCase(T2.Text); почемуто ничего не делает, хотя РАД2010

в Pos нет случайно возможности поиска по частичному совпадению
ну например
маразм и маразматик