[angvelem]

Код:

  StringList.Delimiter := ' ';
  StringList.DelimitedText := "Привет qw всем rt я робот asd Бонни";

  for I := 0 to StringList.Count - 1 do
  begin
    Bol := False;
    St := StringList.Strings[i];
    for J := 1 to Length(St) do
      if St[J] > 'z' then
      begin
        Bol := True;
        Break;
      end;
    if not Bol then
      Memo1.Lines.Add(St);
  end;

Примерно так.