Графический интерфейс (нахождении самого короткого слова)

//---------------------------------------------------------------------------
 #include <iostream>
#include <sstream>
#include <string>
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
    if(Edit1->Text=="")
    {ShowMessage ("you have no write text");
    }
    else{
    int index;
    int curlen(Edit1->Text);
    int word;
    for(int i=0;;i++){
    {
    if (curlen< word){
           word = curlen;
           index =i;}
           if(Edit1->Text=='\0')break;
         curlen = 0;
                        }
     
    }
      Edit2->Text==word;
      }
}

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TEdit *Edit1;
        TButton *Button1;
        TEdit *Edit2;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

AnsiString shortest_word, str;
int min = Edit1->Text.Length();
int j;
do
{
j = Edit1->Text.Pos(' ');
str = Edit1->Text.SubString(1,j);
if(str.Length() < min) {min = str.Length(); shortest_word = str;}
Edit1->Text =  Edit1->Text.Delete(1,j);
}
while(j>0);
Edit2->Text =  shortest_word;

if ((str!=" ") && (str !=""))