Вычисление самого длиного слова

#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)
{
int symbols = 0;
int max = 0;
int num;
for(int j = 0; j < Memo1->Lines->Count; j++)
{
AnsiString str = Memo1->Lines->Strings[j] + " ";
 
for(int i = 0; i < str.Length(); i++)
{
if(str[i + 1]!= ' ')
symbols++;
else
{
if(symbols > max)
{
max = symbols;
num = j + 1;
}
symbols = 0;
}
}
}
ShowMessage("Номер строки в которой находится слово наибольшей длины : " +
IntToStr(num));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
exit(1);        
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int symbols = 0;
int max = 0; 
int num = 0;
int mx = 0;
AnsiString tmp; 
TStringDynArray tt;
TMemo *tmem = new TMemo(this);
for(int j = 0; j < Memo1->Lines->Count; j++)
{
tmem->Lines->Text = StringReplace(Memo1->Lines->Strings[j]," ","\n",TReplaceFlags()<<rfReplaceAll);
for(int i = 0; i < tmem->Lines->Count; i++) {
  if (tmem->Lines->Strings[i].Length >mx){
   mx = tmem->Lines->Strings[i].Length;
   max = i+1;
   num = j+1;
  }
}
ShowMessage("Номер строки в которой находится слово наибольшей длины : " +
IntToStr(num) + "\nНомер слова в строке: "+IntToStr(max));
delete tmem;
}