Написать программу в среде С++

AnsiString str;
if (str.Length > 2 && str.Length < 7) {
  ShowMessage(str);
}

str.Length()

#include <vcl.h>
#pragma hdrstop
#include <dstring.h>
#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)
{
AnsiString str, s1;
str.Length()
if (str.Length > 2 && str.Length < 7){
ShowMessage(str);
}
Edit2->Text=s1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str;
  str = Edit1-Text;
  if (str.Length() > 2 && str.Length() < 7){
    ShowMessage("Длина строки: "+IntToStr(str.Length()));
  }
  else {
    ShowMessage("Длина строки: "+IntToStr(str.Length()));
  }
    Edit2->Text=s1; // это зачем ?
  // если надо строки где-нибудь хранить потом, я бі сделал:
  Memo1->Lines->Add(str);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list;
  list = new TStringList;
  
  AnsiString str;
  str = Edit1->Text;
 
  int i;
  TSysCharSet Tws,Tcs;
  Tcs<<' '<<','; // разделители - если в строке есть пробелы или запятые
 
  ExtractStrings(Tcs,Tws,str.c_str(),Memo1->Lines);
  list->Text = Memo1->Text;
  Memo1->Clear();
  for (i = 0; i < list->Count; i++) {
    if (list->Strings[i].Length()>2 && list->Strings[i].Length()<7) {
      ShowMessage("Длина слова: "+IntToStr(str.Length())+" символов.");
      // если надо строки где-нибудь хранить потом, я бі сделал:
      Memo1->Lines->Add(list->Strings[i]);
    }
    else {
      ShowMessage("Длина строки: "+IntToStr(str.Length())+" символов.");
    }
  }
}

  if (Edit1->Text.Length()>80) {
    ShowMessage("Длина текста превысила допустимое число - 80 символов.")
    return;
  }

ShowMessage("Длина слова: "+IntToStr(str.Length())+" символов.");

Tcs<<' '<<',';

Tcs<<' '<<'.';