Hola de nuevo y si es caso es de que tienes que tomar solo los de 5 caracteres y no habrá ninguno que este mezclado con minúsculas:
Código Delphi
[-]
sl := TStringList.Create;
sl.Delimiter := #32;
sl.DelimitedText := cad;
for i:=0 to sl.Count-1 do
begin
if Length(sl[i])=5 then
showmessage(sl[i])
end;
Saluditos