Передача данных между формами

void __fastcall TForm1::N24Click(TObject *Sender)
{
if (N24->Checked==true)N24->Checked=false;
 else N24->Checked=true;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
    if (N24->Checked==true)
  {S=RichEdit1->Lines->Text;
  S1=S.SubString(S.Length()-1,2);
  AnsiString str( &Key, 1 );
  if (S.Length()==0)
  {Key=0;
  RichEdit1->Lines->Text=RichEdit1->Lines->Text+AnsiUpperCase(str);
  }
  if (S1==". " && Key!=8)
  {Key=0;
  RichEdit1->Lines->Text=RichEdit1->Lines->Text+AnsiUpperCase(str);
  }
  RichEdit1->SelStart=RichEdit1->Text.Length();
 
  RichEdit1->Text = StringReplace( RichEdit1->Text, "  ", " ", TReplaceFlags() << rfReplaceAll);// здесь два пробела заменяться на один. эта операция будет продолжена пока в тексте будет больше или равно двум пробелам (результат будет только один пробел)
 
 
  }
 
 
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N25Click(TObject *Sender)
{
if (N25->Checked==true)N25->Checked=false;
 else N25->Checked=true;
 
}
//---------------------------------------------------------------------------

 
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
    if (N24->Checked==true)
  {S=RichEdit1->Lines->Text;// здесь всегда будет весь текст! и как из него выкопать строку??? подумала об этом?
  S1=S.SubString(S.Length()-1,2);
  AnsiString str( &Key, 1 );
  if (S.Length()==0)// здесь??? условие если пустая строка или текст???
  {Key=0;
  RichEdit1->Lines->Text=RichEdit1->Lines->Text+AnsiUpperCase(str);
  }
  if (S1==". " && Key!=8)
  {Key=0;
  RichEdit1->Lines->Text=RichEdit1->Lines->Text+AnsiUpperCase(str);
  }
  RichEdit1->SelStart=RichEdit1->Text.Length();// здесь??? будет тебя всегда кидать в конец строки или текста - а значит ничего не можешь исправить.
// ну а до этого ваще не дойдет выполнение. 
  RichEdit1->Text = StringReplace( RichEdit1->Text, "  ", " ", TReplaceFlags() << rfReplaceAll);// здесь два пробела заменяться на один. эта операция будет продолжена пока в тексте будет больше или равно двум пробелам (результат будет только один пробел)
 
 
  }

 
void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
   
RichEdit1->Text = StringReplace( RichEdit1->Text, "  ", " ", TReplaceFlags() << rfReplaceAll);// здесь два пробела заменяться на один.
RichEdit1->SelStart=RichEdit1->Text.Length();// и будет всегда в конце строки.
 
 if (N24->Checked==true)

void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
   
RichEdit1->Text = StringReplace( RichEdit1->Text, "  ", " ", TReplaceFlags() << rfReplaceAll);// здесь два пробела заменяться на один.
RichEdit1->SelStart=RichEdit1->Text.Length();// и будет всегда в конце строки.
 
// а так можно определить на какой строке пишешь.   
TPoint a =RichEdit1->CaretPos;
   int ind =  a.y; 
// теперь будет условие правильным, не для всего текста, а только для той строки в которой курсор.
ShowMessage(RichEdit1->Lines->Strings[ind]);
 
 if (N24->Checked==true)

void __fastcall TForm1::RichEdit1KeyPress(TObject *Sender, char &Key)
{
   
RichEdit1->Text = StringReplace( RichEdit1->Text, "  ", " ", TReplaceFlags() << rfReplaceAll);// здесь два пробела заменяться на один.
RichEdit1->SelStart=RichEdit1->Text.Length();// и будет всегда в конце строки.