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