Найти самую короткую строку и удалить ее

var
  St : String;
...
  // пустая строка
  St := '';

var
  St : ShortString;
begin
  St := '';

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Len, LenMin : Integer;
  Arr : array of Integer;
begin
  //Список строк в Мемо2 делаем таким же, как в Мемо1.
  Memo2.Lines.Assign(Memo1.Lines);
  //Если в Мемо1 нет строк, то выходим.
  if Memo1.Lines.Count = 0 then Exit;
 
  //Первую строку (её индекс = 0) считаем наименьшей по длине.
  LenMin := Length(Memo2.Lines[0]);
  //Количество строк с наименьшей длиной = 1.
  j := 1;
  //Устанавливаем размер массива.
  SetLength(Arr, j);
  //Записываем индекс строки с наименьшей длиной в массив.
  Arr[j - 1] := 0;
  //Перебор остальных строк в Мемо1 и поиск индексов строк с наименьшей длиной.
  for i := 0 + 1 to Memo2.Lines.Count - 1 do begin
    //Длина очередной строки.
    Len := Length(Memo2.Lines[i]);
    //Если длина оказалась меньше текущей наименьшей, то эта длина становится
    //новой текущей наименьшей длиной.
    if Len < LenMin then begin
      LenMin := Len;     //Новая наименьшая длина.
      j := 1;            //Количество строк с наименьшей длиной теперь = 1.
      SetLength(Arr, j); //Устанавливаем размер массива.
      Arr[j - 1] := i;   //Записываем в массив индекс строки с наименьшей длиной.
    //Если длина текущей строки оказалась равной текущей наименьшей, то добавляем
    //индекс этой строки в массив.
    end else if Len = LenMin then begin
      Inc(j);
      SetLength(Arr, j); //Устанавливаем размер массива.
      Arr[j - 1] := i;   //Записываем в массив индекс строки с наименьшей длиной.
    end;
  end;
 
  //Теперь в массиве Arr содержатся индексы строк с наименьшей длиной.
  //Читаем из массива записанные значения индексов и строки под этими индексами
  //делаем пустыми.
  for i := 0 to j - 1 do Memo2.Lines[Arr[i]] := '';
end;