Найти длину самого короткого слова

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,w,min,q;
AnsiString a;
a=Edit1->Text;
q=a.Length();
 
for(i=0;i<q;i++)
        {
        if (('a'<=a[i]<='z') && ('A'<=a[i]<='Z' )&& ('a'<=a[i]<='я') && ('А'<=a[i]<='Я'))
                w=w+1;
        else if ((w < q) &(w != 0))
                q = w;
                w = 0;
}
ShowMessage(q);
}

int i,w,min,q;
AnsiString a,b;
a=Edit1->Text;
q=a.Length();
w=0;
for(i=1;i<=a.Length();i++)
{
 
        if (a[i]!=' ')
                w=w+1;
        else  if (w!=0)
        {
                q = w;
         w = 0;}
}
ShowMessage(q);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList *list = new TStringList();
 list->Clear();
 int d  = 20;
 String str;
 list->Delimiter =' ';
 list->DelimitedText = Edit1->Text;
 for(int i = 0; i < list->Count; i++)
 {
    if(d > list->Strings[i].Length())
    {
        d = list->Strings[i].Length();
        str = list->Strings[i];
    }
 }
 ShowMessage(str);
 delete list;
 list = NULL;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> list(new TStringList);
    int min_ix = -1;
    list->Delimiter = ' ';
    list->DelimitedText = Edit1->Text;
    for (int i = 0; i < list->Count; i++)
    {
        if (min_ix == -1 || list->Strings[min_ix].Length() >
            list->Strings[i].Length())
        {
            min_ix = i;
        }
    }
    ShowMessage(list->Strings[min_ix].Length());
}

std::auto_ptr