Срочно нужна программка в С Builder

#include <string>
#include <iostream>
 
int main()
{
    std::string stroka;
    std::cout << "Vvedite stroku: ";
    std::cin  >> stroka;
    for (int i=stroka.size()-1; i>=0; i--)
        std::cout << stroka[i];
}

{
    String stroka;
    Edit1-> Text="Vvedite stroku:";
    "stroku"= Edit1->Text;                 -тут выдает ошибку
    for (int i=stroka.size()-1; i>=0; i--)
         Edit2-> Text= "stroka[i]";
}

AnsiString stroka;
Edit1-> Text="Vvedite stroku:";
stroka= Edit1->Text; // тут выдает ошибку
for (int i=stroka.Lenght(); i>=0; i--) // строки нумеруются с 1, списки - с 0
Edit2-> Text= "stroka"+i; // хотя я понятия не имею, что вы здесь хотите

void __fastcall TForm2::Button1Click(TObject *Sender)
{
  AnsiString stroka;
  char s;
  TStringList *list = new TStringList;
  stroka = Edit1->Text;
  for (int i = stroka.Length(); i > 0; i--) {
    s = stroka[i];
    list->Add(s);
  }
  Edit1->Text = list->Text;
  delete list;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  Edit1-> Text="Vvedite stroku:";
}