Строки: Вывести на экран порядковый номер слова минимальной длины

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,MMSystem, StdCtrls;
 
type
  TForm1 = class(TForm)
    ComboBoxString: TComboBox;
    mmoLog: TMemo;
    btnGo: TButton;
    btnLogClear: TButton;
    btnExit: TButton;
    btnStrField: TButton;
    procedure btnGoClick(Sender: TObject);
    procedure ComboBoxStringKeyPress(Sender: TObject; var Key: Char);
    procedure btnLogClearClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure btnStrFieldClick(Sender: TObject);
 private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btnGoClick(Sender: TObject);
var s,s1,s2:string;
    i,k,min,imin:integer;
    m:set of char;
begin
s:=ComboBoxString.Text+' '; 
i:=0;
min:=maxint;imin:=0;
while pos(' ',s)>0 do 
  begin
    s1:=copy(s,1,pos(' ',s)-1); 
    i:=i+1;
    if length(s1)<min then  
       begin
        min:=length(s1);
        s2:=s1;   
        imin:=i; 
       end;
     delete(s,1,pos(' ',s)); 
   end;
m:=[]; 
for i:=1 to length(s1) do
//if not (s2[i] in m) then
include(m,s1[i]); 
k:=0;
for i:=33 to 255 do
if char(ord(i))in m then k:=k+1;
mmoLog.Text:='Номер самого короткого слова = '+IntToStr(imin)
            +#13+#10+'В нем '+inttostr(k)+' символов';
            
end;
 
 
 
procedure TForm1.ComboBoxStringKeyPress(Sender: TObject; var Key: Char);
begin
  //if not (Key in ['0'..'9','a'..'z','A'..'Z','а'..'я','А'..'Я',',','.','-','+',#8,#13]) then
    //Key:=#0;
  if (Key=#13) and (ComboBoxString.Text<>'') then
    begin
      ComboBoxString.Items.Add(ComboBoxString.Text);
      ComboBoxString.Text:='';
    end;
end;
 
procedure TForm1.btnLogClearClick(Sender: TObject);
begin
mmoLog.Clear;
end;
 
 
procedure TForm1.btnExitClick(Sender: TObject);
begin
Application.Terminate;
end;
 
procedure TForm1.btnStrFieldClick(Sender: TObject);
begin
ComboBoxString.Clear;
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp,str:string; //для хранения слов
  words:TStrings; //список слов в строке
  i,j,min:integer;
begin
  words:=TStringList.Create;//создаем список
  str:=edit1.Text;
  while length(str)>0 do
    begin
      tmp:='';
      j:=1;
      while (str[j]<>' ') and (str[j]<>#0) do//заполняем список словами
        begin
          tmp:=tmp+str[j];
          inc(j)
        end;
      Delete(str,1,length(tmp));
      str:=trim(str);
      words.Add(tmp);
    end;
  min:=0;
  for i:=1 to words.Count -1 do //находим слово мин. длины
      if length(words.Strings[i])<length(words.Strings[min])
      then min:=i;
  ShowMessage('Порядковый номер слова минимальной длины: '+
              IntToStr(min+1)+' и количество символов в этом слове: '+
              IntToStr(length(words.Strings[min])));
end;