Как изменить этот код так чтобы нарисовалась фигура как на картинке

objFigure->pntPFigureKoordinata[0]=3;
objFigure->pntPFigureKoordinata[1]=4;
objFigure->pntPFigureKoordinata[2]=3;
objFigure->pntPFigureKoordinata[3]=4;
objFigure->pntPFigureKoordinata[4]=3;
objFigure->pntPFigureKoordinata[5]=1;
objFigure->pntPFigureKoordinata[6]=1;
objFigure->pntPFigureKoordinata[7]=1;
objFigure->pntPFigureKoordinata[8]=1;
objFigure->pntPFigureKoordinata[9]=1;
objFigure->pntPFigureKoordinata[10]=3;
objFigure->pntPFigureKoordinata[11]=1;
objFigure->pntPFigureKoordinata[12]=3;
objFigure->pntPFigureKoordinata[13]=4;
objFigure->pntPFigureKoordinata[14]=3;
objFigure->pntPFigureKoordinata[15]=4;
objFigure->pntPFigureKoordinata[16]=3;
objFigure->pntPFigureKoordinata[17]=1;
objFigure->pntPFigureKoordinata[18]=1;
objFigure->pntPFigureKoordinata[19]=1;
objFigure->pntPFigureKoordinata[20]=1;
objFigure->pntPFigureKoordinata[21]=1;
objFigure->pntPFigureKoordinata[22]=3;
objFigure->pntPFigureKoordinata[23]=1;
//-----------------------------------------------------------------------------
Memo1->Lines->Clear();
Memo1->Lines->Add("Координаты фигуры");
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[0]));
Memo1->Lines->Strings[1] = Memo1->Lines->Strings[1] + ",";
Memo1->Lines->Strings[1] = Memo1->Lines->Strings[1] +objFigure->pntPFigureKoordinata[1];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[2]));
Memo1->Lines->Strings[2] = Memo1->Lines->Strings[2] + ",";
Memo1->Lines->Strings[2] = Memo1->Lines->Strings[2] +objFigure->pntPFigureKoordinata[3];
/////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[4]));
Memo1->Lines->Strings[3] = Memo1->Lines->Strings[3] + ",";
Memo1->Lines->Strings[3] = Memo1->Lines->Strings[3] +objFigure->pntPFigureKoordinata[5];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[6]));
Memo1->Lines->Strings[4] = Memo1->Lines->Strings[4] + ",";
Memo1->Lines->Strings[4] = Memo1->Lines->Strings[4] +objFigure->pntPFigureKoordinata[7];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[8]));
Memo1->Lines->Strings[5] = Memo1->Lines->Strings[5] + ",";
Memo1->Lines->Strings[5] = Memo1->Lines->Strings[5] +objFigure->pntPFigureKoordinata[9];
/////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[10]));
Memo1->Lines->Strings[6] = Memo1->Lines->Strings[6] + ",";
Memo1->Lines->Strings[6] = Memo1->Lines->Strings[6] +objFigure->pntPFigureKoordinata[11];
/////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[12]));
Memo1->Lines->Strings[7] = Memo1->Lines->Strings[7] + ",";
Memo1->Lines->Strings[7] = Memo1->Lines->Strings[7] +objFigure->pntPFigureKoordinata[13];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[14]));
Memo1->Lines->Strings[8] = Memo1->Lines->Strings[8] + ",";
Memo1->Lines->Strings[8] = Memo1->Lines->Strings[8] +objFigure->pntPFigureKoordinata[15];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[16]));
Memo1->Lines->Strings[9] = Memo1->Lines->Strings[9] + ",";
Memo1->Lines->Strings[9] = Memo1->Lines->Strings[9] +objFigure->pntPFigureKoordinata[17];
/////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[18]));
Memo1->Lines->Strings[10] = Memo1->Lines->Strings[10] + ",";
Memo1->Lines->Strings[10] = Memo1->Lines->Strings[10] +objFigure->pntPFigureKoordinata[19];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[20]));
Memo1->Lines->Strings[11] = Memo1->Lines->Strings[11] + ",";
Memo1->Lines->Strings[11] = Memo1->Lines->Strings[11] +objFigure->pntPFigureKoordinata[21];
////
Memo1->Lines->Add((objFigure->pntPFigureKoordinata[22]));
Memo1->Lines->Strings[12] = Memo1->Lines->Strings[12] + ",";
Memo1->Lines->Strings[12] = Memo1->Lines->Strings[12] +objFigure->pntPFigureKoordinata[23];
  Ini = new TIniFile(ExtractFilePath(Application->ExeName) + "Parametrs.ini");
    ReadParams();
     FILE *F;
char s[5];
try{
fgets(s,5,F);
}catch(...){
ShowMessage("Не удалось открыть файл!");
}
}

  int radius = 200, x = Image1->Width, y = Image1->Height, side_count = 4;
  double angle = 2 * M_PI / side_count, angle2 = M_PI / 6;
  Image1->Canvas->MoveTo(x / 2, y / 2);
  for (int i = 0; i < side_count; i++)
  {
    Image1->Canvas->LineTo(x / 2 + radius * sin(i * angle - angle2), y / 2 - radius * cos(i * angle - angle2));
    Image1->Canvas->LineTo(x / 2 + radius * sin(i * angle + angle2), y / 2 - radius * cos(i * angle + angle2));
    Image1->Canvas->LineTo(x / 2, y / 2);
  }