номер слова минимальной длины

[ami_moor]

Здравствуйте!
Есть код, он выводит слова минимальной длины и количество символов в этом слове
Подскажите пожалуйста,
Как мне вывести ПОРЯДКОВЫЙ НОМЕР слова минимальной длины?

procedure TForm1.Button1Click(Sender: TObject);
  function Qwe(s : string; var n : Integer) : Boolean;
  var
    nLen : Integer;
  begin
    nLen := Length(s);
    if (nLen < n) or (n = 0) then
      begin
        n := nLen;
        Result := True;
      end
    else
      Result := False;
  end;
var
  sl : TStringList;
  i, n, x, r : Integer;
  ss : string;
begin
  n := 0;
  sl := TStringList.Create;
  sl.Delimiter := ' ';
  sl.DelimitedText := Edit1.Text;

  for i := 0 to sl.Count - 1 do
    if Qwe(sl[i], n) then
      x := i;

  if n > 0 then
    ShowMessage(Format('Самое короткое слово строки - %s. Колличество символов - %d', [sl[x], n] ))

  else
    ShowMessage('Пустая строка!');
  sl.Free;

end;

[min@y™]

Как мне вывести ПОРЯДКОВЫЙ НОМЕР слова минимальной длины?

Это х.

if n > 0 then
    ShowMessage(Format('Самое короткое слово строки - %s (№%d). Количество символов - %d', [sl[x], x, n] ))

[lomastr_]

Знаки препинания не учтены.