Как найти индекст строки, если известно только ее часть.

//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
    ListBox1->Perform ( LB_SELECTSTRING, -1, (DWORD)Edit1->Text.c_str() );
}
//---------------------------------------------------------------------------

TStringList *lst=new TStringList;
lst->Add("Step=123");
String i=lst->Values["Step"]; //В данном случае в i будет значение Step, то-есть 123
//Изменить значение можно так:
lst->Values["Step"]="Маленькая мертвая девочка";
//Тогда строка будет иметь вид "Step=Маленькая мертвая девочка"

 
//Находим позицию нужного слова, заданного в Edit1->Text
  int pos=Memo1->Text.Pos(Edit1->Text);
//Вырезаем из Memo1->Text весь текст после pos
 String sub=Memo1->Text.SubString(pos,Memo1->Text.Length()-pos);
//Находим знак переноса строки
 int perenos=sub.Pos("\n")-2;
//Вырезаем весь текст до переноса
 sub=sub.SubString(0,perenos);
//В sub текст строки, на которой находится слово после слово :)))))
 
 //Теперь находим первую часть строки, которая идет перед словом
//А теперь пойдет такой бред, который я выдумал.....
//Вырезаем в sub2 весь текст до слова
 String sub2=Memo1->Text.SubString(0,pos+Edit1->Text.Length()-1);
//Отражаем текст!!! Блин, я сам в шоке, что за херню придумал
 String subsub=ReverseString(sub2);
 
//Находим символ переноса строки
 perenos=subsub.Pos("\n")+3;
//Бла-бла-бла
 sub2=subsub.SubString(0,perenos-4);
//Опять отражаем и получаем часть строки до слова
 sub2=ReverseString(sub2);
//Убираем 2 последних символа
 sub2=sub2.SubString(0,sub2.Length()-Edit1->Text.Length());
 
//ВСЕ!!!! В Edit1->Text индекс строки
 
    Edit1->Text = Memo1->Lines->IndexOf(sub2+sub);

...
   // Общее кол-во строк и для последней строки
   // Использовать значение сохранённое в linecount
   int linecount =  Memo1->Lines->Count;
...

#include "Strutils.hpp"