Неясности с TStringList. Как найти наибольший элемент в TStringList? - Delphi - Ответ 6076198

procedure TForm1.SimpleMassive(arr: array of byte);
var
  i: Integer;
  max: string;
  counter: Integer;
  masOne: array of string;
  testString: string;
  sl: TStringList;
 
begin
setLength(masOne, Memo2.Lines.Count);
counter:= 0; //в цикле пробегаем по всем элементам массива, проверяем простое число или нет, если простое, //добавляем в строку testString, образуя последовательность простых чисел. Если в массиве попадается число, //которое не является простым, то с testString добавляется пробел.
 
  for i:=0 to Length(arr) do begin
    if SimpleValid(arr[i]) = True then begin
    counter:=counter+1; //если счетчик будет равен нулю, то простых чисел не найдено
    testString := testString + IntToStr(arr[i]);
    end;
    if  SimpleValid(arr[i]) = False then testString := testString + ' '; //если попалось не просто  число, добавляем пробел
   end;
   showmessage(testString); //проверка что у нас получилось в строке
   sl := TStringList.Create; //создаем массив из строки testString, чтобы потом найти наибольший элемент
   sl.Delimiter:= ' ';
   sl.DelimitedText:= testString;
   ShowMessage(sl[0]); // смотрим что получилось
   for i:=0 to sl.Count-1 do begin //присваиваем TStringList массиву строк masOne.
      masOne[i] := sl[i];
   end;
   for i:=0 to Length(masOne)-1 do begin // пытаемся сравнить длины строки элементов массива и нихрена не получается!!!
      if Length(masOne[i]) > Length(masOne[i+1]) then max:=masOne[i];
   end;
 
   ShowMessage(IntToStr(Length(masOne[0])));
   Label2.Caption := 'самая длинная последовательность простых чисел:  ' + max;
   if counter = 0 then Label2.Caption:= 'Простых чисел нет';
end;