Как из поля Edit считать данные с разделителями в виде ":" в формате int в массив?

TStringList *sl=new (TStringList);
sl->Delimiter=':'; // символ по которому разбиваем текст
sl->DelimitedText=Edit ->Text; // текст к разбивке
int* a = new int*(sl->Count);
for(int i=0;i<sl->Count;i++)a[i] = StrToInt(sl->Strings[i]);

int* a = new int[sl->Count];

  wh=0; od=""; 
  int time2[4];
 
  was = Edit5->Text;
  int len = was.Length();
  for ( i=1;i<=len;i++)
  {
    dv=was.SubString(i,1);
    if(dv != ":") od+=was.SubString(i,1);
    else {time2[wh]=StrToInt(od); od=""; wh++; }
  }
   Label2->Caption = od ;
 
  Label1->Caption = IntToStr(time2[0])+" ** "+
                    IntToStr(time2[1])+" ** "+
                    IntToStr(time2[2]) ;

void __fastcall TMainForm::Button6Click(TObject *Sender)
{
 
TDateTime DateTime = TDateTime::CurrentDateTime();
int i,j,wh = 0,wh1 = 0;
int Time[4];
int Date[4];
was = Edit5->Text + ":";
int len = was.Length();
for ( i=1;i<=len;i++)
 {
dv=was.SubString(i,1);
if(dv != ":") od+= was.SubString(i,1);
else          { Time[wh]=StrToInt(od); od=""; wh++; }
 }
if (Time[0] > 24 || Time[1] > 59 || Time[2] >59){
Application->MessageBox("Неверный формат времени",
    "Системное время MPU", MB_ICONINFORMATION | MB_OK);
    Abort();
    Edit5->SetFocus();}
MpuThread->setbufferclock[11] = LOBYTE(Time[2]);
MpuThread->setbufferclock[10] = HIBYTE(Time[2]);
MpuThread->setbufferclock[9] = LOBYTE(Time[1]);
MpuThread->setbufferclock[8] = HIBYTE(Time[1]);
MpuThread->setbufferclock[7] = LOBYTE(Time[0]);
MpuThread->setbufferclock[6] = HIBYTE(Time[0]);
was1 = Edit6->Text + ".";
int len1 = was1.Length();
for ( j=1;j<=len1;j++)
 {
dv1=was1.SubString(j,1);
if(dv1 != ".") od1+= was1.SubString(j,1);
else          {Date[wh1]=StrToInt(od1); od1=""; wh1++; }
 }
if (Date[0]> 31 || Date[1] > 12 || (2020<Date[0]>1990)) {
Application->MessageBox("Неверный формат даты",
    "Системное время MPU", MB_ICONINFORMATION | MB_OK);
    Abort();
    Edit6->SetFocus();}
MpuThread->setbufferclock[5] = LOBYTE(Date[0]);
MpuThread->setbufferclock[4] = HIBYTE(Date[0]);
MpuThread->setbufferclock[3] = LOBYTE(Date[1]);
MpuThread->setbufferclock[2] = HIBYTE(Date[1]);
MpuThread->setbufferclock[1] = LOBYTE(Date[2]);
MpuThread->setbufferclock[0] = HIBYTE(Date[2]);
 
Day = StrToDateTime(Edit6->Text + Edit5->Text).DayOfWeek();
switch (Day){
        case 1: MpuThread->Day1 = 1;break;
        case 2: MpuThread->Day1 = 2;break;
        case 3: MpuThread->Day1 = 3;break;
        case 4: MpuThread->Day1 = 4;break;
        case 5: MpuThread->Day1 = 5;break;
        case 6: MpuThread->Day1 = 6;break;
        case 7: MpuThread->Day1 = 0;break;
}
MpuAdres=MpuAdresCSpinEdit->Value;              //Прописали слэйв адрес
MpuBaud=SetupForm->BaudComboBox->ItemIndex+4;   //Прописали скорость обмена
 
Memo1->Lines->Clear();
CheckConditions();
MpuThread=new TMpuThread(true);
MpuThread->port=port;                            //Выбрали порт
MpuThread->address=address;                      //Установили адрес
MpuThread->baud=baud;                            //Установили скорость обмена
MpuThread->WorkMode=40;
MpuThread->Resume();
MpuThread->WaitFor();
delete MpuThread;
CheckConditions();
}