memo считывание

int i;
AnsiString s1,s2;
s1 = Memo1->Lines->Strings[0];
s2 = "x";
i = s1.Pos(s2);
if (i) Edit1->Text = s1.SubString(i -1, 2);

void __fastcall TForm1::FormCreate(TObject *Sender)
{
// на форме Edit1, Edit2, Memo1, Button1, Button2
  UnicodeString str = "2x1+4x2-6x3<=6";
  Edit1->Text = str;
  Edit2->Text = "";
  Memo1->Text = "";
  Button1->Caption = "В Memo1";
  Button2->Caption = "В Edit2";
}
// вариант 1 -----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList;
  UnicodeString s1; // для C++ Builder 6 заменить на AnsiString
  s1 = Edit1->Text; // строка для обработки
  TSysCharSet Tws,Tcs; // is a set containing ANSI characters
  Tcs<<'x'; // разделитель подстрок
  ExtractStrings(Tcs,Tws,s1.c_str(),Memo1->Lines); // извлекаем подстроки по разделителю
                                                   //  и добавляем в Memo1
  int j = Memo1->Lines->Count-1;
  Memo1->Lines->Delete(j); // удаляем лишние символы после последнего x
}
// вариант 1 -----------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  String s = Edit1->Text;// или Memo1->Lines->Strings[0] -
                          // если данные у вас там
  TStringList *list1 = new TStringList();
  TStringList *list2 = new TStringList();
  list1->StrictDelimiter = true; // заменяем разделитель "пробел" на свой
  list1->Delimiter = 'x'; // разделитель
  list1->DelimitedText = s; // строка для разбора
  for (int i=0; i < list1->Count; i++) {
    list2->Add(list1->Strings[i]);
  }
  int j = list2->Count-1; // определяем последнюю строку списка
  list2->Delete(j); // удаляем лишние символы после последнего разделителя
  Edit2->Text = list2->Text;
  delete list1; // убираем за собой
  delete list2;
  list1 = NULL; // обнуляем указатель
  list2 = NULL;
}

//Начинаем заполнять строки таблицы из системы ограничений
for (J = 1; J < Form2->sSpinEdit2->Value+1; J++)
    {
    //Присвоим строке SLabel значение ограничения
    SLabel = ((TsLabel*)Components[32+J])->Caption;
    //Начинаем извлекать нужные значения
    for (I = 1; I < Form2->sSpinEdit1->Value+1; I++)
        {
        //Присвоим XString номер переменной например X2
        XString = SLabel.SubString(Pos("X",SLabel),2);
        //Если номер переменной совпадает с номером столбца
        if(XString == StringGrid->Cells[I][0])
            {
            //Присвоим ChString число перед номером переменной
            ChString = StrToFloat(SLabel.SubString(0,Pos("X",SLabel)-1));
            //И запишем его в таблицу
            StringGrid->Cells[I][J] = FloatToStrF(ChString, ffFixed, 9, ComBox) * 1;
            //Если перед числом стоит знак +
            if(SLabel.SubString(Pos(" ",SLabel)+1,1) == "+")
                {
                //Удалим все до него чтобы осталось новое число с номером переменной
                SLabel = SLabel.Delete(1,Pos(" ",SLabel)+1);
                }
            //Если знак - удалим все до него чтобы не менять знаки у числа
            else SLabel = SLabel.Delete(1,Pos(" ",SLabel));
            }
        //Если нет то идем дальше и поставим 0
        else StringGrid->Cells[I][J] = 0;
        //Если достигли конца строки
        if(SLabel.Length() <= 0)
            {
            //Выходим из цикла
            break;
            }
        }
    }

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Edit1->Text = "2х1+3х2";
  Edit2->Text = "";
  Memo1->Text = "";
  Button1->Caption = "Фас!";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *list = new TStringList();
  UnicodeString str = Edit1->Text;
  wchar_t cr1;
  wchar_t cr2;
  int sub1 = str.Pos("x");
  int sub2 = str.Pos("+");
  for (int i = 0; i <= str.Length(); i++) {
    str = str.SubString(sub1-1,1);
    list->Add(str);
    str = Edit1->Text;
    str = str.SubString(sub2+1,1);
    list->Add(str);
    list->Delete(list->Count-1);
  }
  Edit2->Text = list->Text;
  delete list;
  list = NULL;
}

TSysCharSet Tws,Tcs;  
Tcs<<'+'<<'х'; // разделители
Edit1->Text = "2х1+3х2";
AnsiString s = Edit1->Text;
ExtractStrings(Tcs,Tws,s.c_str(),ListBox1->Items); // или Memo->Lines