Запомнить текущее состояние компонентов (для таймера)

lAnsiStrings S1= "Можно поподробнее про эту функцию? "; 
AnsiStrings S2 = "эту";
AnsiStrings S3 = "другую";
S1 = StringReplace(S1, S2, S3, TReplaceFlags()
                   << rfReplaceAll // заменить все
                   << rfIgnoreCase); // без учета регистра
ShowMessage(S1);

if (ЧтоНибудь) {
 StringGrid->Cells[i][j] = ТоЧтоВашеЧтоНибудьПринесло;
}

StringGrid->Cells[i][j] = ТоЧтоВашеЧтоНибудьПринесло;

IdUDPClient1->Active = true;
 
Sysutils::TBytes ReceiveBuff; // честно говоря, не совсем понимаю, для чего нужны
ReceiveBuff.set_length(1800);   // эти две строчки, и что они конкретно делают, 
                                             // но просто нашел такое вот решение
 
//Ну дальше понятно, добавляю в комбобокс адрес:порт сервера
ComboBox1->Items->Add(IdUDPClient1->Host + ":" + IdUDPClient1->Port);
ComboBox1->ItemIndex = 0;
 
//Дальше отправляю на сервер команду
char *gstats = "\xff\xff\xff\xff getstatus";
IdUDPClient1->SendBuffer(RawToBytes(gstats,strlen(gstats)));
 
//Принимаю ответ с сервера
IdUDPClient1->ReceiveBuffer(ReceiveBuff, 1000);
//строчка приходит вида Admin\AdminName\_Param1\1\Param_3\asdf\ServName\Name Of server\1(дальше тут идет перенос строки \n и строка принимает след. вид)3 56 "nickname 1"(снова \n)7 38 "name2"(\n)7 42 "asdf" и т.д.
 
 
//дальше идут костыли с парсингом
AnsiString str;
for(int i=20;ReceiveBuff[i]!=0;i++)
   str += (char)ReceiveBuff[i]; //заносим пришедшую инфу в str
 
AnsiString param = str; //(копия) Заносим в param всё из str
 
//---------- собираем param ---------------   параметры сервера
int idx = param.Pos('\n'); //Ищем первое вхождение \n по байтам
int all = strlen(param.c_str()); //берем всю длину строки
int kostil = all - idx; //делаем костыль в виде кол-ва нужных байт
param.Delete(idx,kostil); //удаляем от idx на кол-во байт kostil
 
//Memo1->Lines->Add("Параметры: " + param);
 
//------------ собираем str ----------------   игроки сервера
str.Delete(1,idx);
 
// И вот дальше приведу пример для первого СтрингГрида
 
TStringList *list = new TStringList;
list->StrictDelimiter = true;
list->Delimiter = '\\';
list->DelimitedText = param;
 
StringGrid1->Cells[0][0] = "Название сервера";
StringGrid1->Cells[1][0] = "Режим";
StringGrid1->Cells[2][0] = "Карта";
StringGrid1->Cells[3][0] = "Игроки";
StringGrid1->Cells[4][0] = "Пинг";
 
for (int i=0; i < list->Count; i++)
{
   if (list->Strings[i] == "sv_hostname")
   {
      StringGrid1->Cells[0][1] = list->Strings[i+1];
   }
 
   if (list->Strings[i] == "g_gametype")
   {
      StringGrid1->Cells[1][1] = list->Strings[i+1];
   }
 
   if (list->Strings[i] == "mapname")
   {
      StringGrid1->Cells[2][1] = list->Strings[i+1];
   }
 
   if (list->Strings[i] == "sv_maxclients")
   {
      if (StringGrid2->Cells[1][0]!=NULL)
      {
         StringGrid1->Cells[3][1] = AnsiString(StringGrid2->RowCount-1) + "/" + list->Strings[i+1]; // тут пока более лучшего решения не нашел. Потом придумаю лучше.
      } else {
         StringGrid1->Cells[3][1] = "0/" + list->Strings[i+1];
      }
   }
 
delete list;
list = NULL;

TStringList *gamers = new TStringList;
gamers->DelimitedText = str;
 
   StringGrid2->Cells[0][0] = "Имя";
   StringGrid2->Cells[1][0] = "Фраги";
   StringGrid2->Cells[2][0] = "Пинг";
 
   int j=1;
   for (int i=0; i < gamers->Count; i++)
   {
 
          StringGrid2->Cells[0][j] = gamers->Strings[i+2];
          StringGrid2->Cells[1][j] = gamers->Strings[i];
          StringGrid2->Cells[2][j] = gamers->Strings[i+1];
          i+=2;
          j++;
          StringGrid2->RowCount = j;
   }
 
delete gamers;
gamers = NULL;

if (gamers->Count != 0) {
  for (int i=0; i < gamers->Count; i++) {

//------------ собираем str ----------------   игроки сервера
str.Delete(1,idx+1);

if (kostil<6) {
str.Delete(1,idx+1);
Memo1->Lines->Add(str);
} else {
   str=NULL;
}