[*Caro*]

Empezado por MartinS

Hola: No se si te sirve o es lo que andas buscando pero lo siguiente te muestra que es lo que esta en mayuscula

Código Delphi [-]function Mayuscula(Cad: string): string; var i: Integer; begin for i:= 1 to Length(Cad) do if (Cad[i] in ['A'..'Z']) or (Cad[i] in ['0'..'9']) then Result:= Result + Cad[i]; end;

Hola Martins, en caso de que una palabra sin mayúsculas tenga algún número, también lo tomaría en cuenta.

ZayDu, todo depende de las condiciones que tengas en tu cadena para hacer los controles, tomando en cuenta que dices que son de 5 caracteres, podríamos tomar en cuenta solo esas palabras:

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
    begin
     if (sl[i][1] in ['A'..'Z']) then
      showmessage(sl[i])
     else
      for j:=1 to 5 do
       begin
        if (sl[i][j] in ['A'..'Z']) then
         begin
          showmessage(sl[i]);
          break; //si ya ha encontrado una mayuscula nos salimos del for
         end;
       end;
    end;
  end;

Saluditos