function IsRange(const ch: Char; const A, B: Char): Boolean; inline;
begin
  Result := (ch >= A) and (ch <= B);
end;

function IsLetterEng(const ch: Char): Boolean; inline;
begin
  Result := IsRange(ch, 'a', 'z') or IsRange(ch, 'A', 'Z');
end;

function IsLetterRu(const ch: Char): Boolean; inline;
begin
  Result := IsRange(ch, 'а', 'я') or IsRange(ch, 'А', 'Я');
end;

function IsMumber(const ch: Char): Boolean; inline;
begin
  Result := IsRange(ch, '0', '9');
end;

function GetWordsEng(const Text:string): TArray<string>;
label NextChar;
var
  WD: string;
  ch: Char;
  TextLen, CurrentLen, LenWD, CountWords: Cardinal;
begin
  CountWords := 0;
  SetLength(Result, 100);

  TextLen := Text.Length;

  CurrentLen := 1;
  while True do
  begin
    LenWD := 0; // Установлен по умолчанию

  NextChar: // Каак!? Халивар!
    if CurrentLen > TextLen then
      Break;

    while IsLetterEng(Text[CurrentLen + LenWD]) do
      inc(LenWD);

    if LenWD = 0 then
    begin
      inc(CurrentLen);
      goto NextChar; // Плаакать,плаакать
    end;

    if CountWords >= Length(Result) then
      SetLength(Result, High(Result) + 99);

    SetLength(Result[CountWords], LenWD);
    move(Text[CurrentLen], Result[CountWords][1], LenWD * SizeOf(Text[1]));

    inc(CurrentLen, LenWD);
    inc(CountWords);
  end;
  SetLength(Result, CountWords);
end;