Вычесть из каждого числа в строке заданное

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
TStringList *lst = new TStringList();
lst->Clear();
lst->Delimiter = ',';
lst->DelimitedText = L"12,12,33,56,23,67";
lst->StrictDelimiter = true;
for(int i = 0; i < lst->Count; i++)
{
  Memo1->Lines->Add(IntToStr(StrToInt(Edit1->Text) - lst->Strings[i].ToInt()));
}
 
delete lst;
lst = NULL;
 
}

TStringList *LinkedAnalog = new TStringList();
LinkedAnalog->Clear();
LinkedAnalog->Delimiter = ',';
for (int i = 0; i < Result->RowCount-1; i++)
{
  if(Result->Cells[4][i+1]!="")
    {
      LinkedAnalog->DelimitedText = Result->Cells[4][i+1];
      for(int i = 0; i < LinkedAnalog->Count; i++)
     {
       Temp+=(IntToStr(LinkedAnalog->Strings[i].ToInt()-OffsetAnalog->Value));
       Temp+=",";
     }
    }
}
delete LinkedAnalog;
LinkedAnalog = NULL;
 
}

TStringList *LinkedAnalog = new TStringList();
LinkedAnalog->Clear();
LinkedAnalog->Delimiter = ',';
for (int i = 0; i < Result->RowCount-1; i++)
{
 if(Result->Cells[4][i+1]!="")
{
LinkedAnalog->DelimitedText = Result->Cells[4][i+1];
 for(int i = 0; i < LinkedAnalog->Count; i++)
{
Temp+=(IntToStr(LinkedAnalog->Strings[i].ToInt()-OffsetAnalog->Value));
Temp+=",";
}
     Result->Cells[4][i+1]=Temp;//как то так наверное
     Temp="";//и так
}
}
delete LinkedAnalog;
LinkedAnalog = NULL;
}

for (int i = 0; i < Result->RowCount-1; i++)
{
  if(Result->Cells[4][i+1]!="")
    {
      LinkedAnalog->DelimitedText = Result->Cells[4][i+1];
      for(int k = 0; k < LinkedAnalog->Count; k++)
     {
       Temp+=(IntToStr(LinkedAnalog->Strings[k].ToInt()-OffsetAnalog->Value));
       Temp+=",";
     }
     Temp.Delete(Temp.Length(),1);
     Result->Cells[4][i+1]=Temp;
    }
    delete LinkedAnalog;
    LinkedAnalog = NULL;
}
}

TStringList *LinkedAnalog = new TStringList();
AnsiString Temp="";
LinkedAnalog->Clear();
LinkedAnalog->Delimiter = ',';
for (int i = 0; i < Result->RowCount-1; i++)
{
  if(Result->Cells[4][i+1]!="")
    {
      LinkedAnalog->DelimitedText = Result->Cells[4][i+1];
      for(int k = 0; k < LinkedAnalog->Count; k++)
     {
       Temp+=(IntToStr(LinkedAnalog->Strings[k].ToInt()-OffsetAnalog->Value));
       Temp+=",";
     }
     Temp.Delete(Temp.Length(),1);
     Result->Cells[4][i+1]=Temp;
    }
 
}
delete LinkedAnalog;
LinkedAnalog = NULL;

TStringList *LinkedAnalog = new TStringList();
AnsiString Temp="";
LinkedAnalog->Clear();
LinkedAnalog->Delimiter = ',';
for (int i = 0; i < Result->RowCount-1; i++)
{
if(Result->Cells[4][i+1]!="")
{
LinkedAnalog->DelimitedText = Result->Cells[4][i+1];
for(int k = 0; k < LinkedAnalog->Count; k++)
{
Temp+=(IntToStr(LinkedAnalog->Strings[k].ToInt()-OffsetAnalog->Value));
Temp+=",";
}
Result->Cells[4][i+1]=Temp;
Temp="";
}
}
delete LinkedAnalog;
LinkedAnalog = NULL;