[*Caro*]

Hola ZayDun, si esta entre espacios puedes pasarlo a un StringList y preguntar si el primer caracter es mayuscula.

Código Delphi [-]
var
 sl :TStringList;
begin
 cad := 'caracteresaleatorios FGHJK continuaeltexto KJGTU';
 sl := TStringList.Create;
 sl.Delimiter := #32;
 sl.DelimitedText := cad;
 for i:=0 to sl.Count-1 do
  begin
   if sl[i][1] in [#65..#90] then
    showmessage(sl[i]);
  end;
end;

Saluditos