Раздвинуть слова (символами)

#include <vcl.h>
#include <stdio.h>
#include <values.h>
#include <math.h>
#pragma hdrstop
#include "Unit1.h"//-------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;//--------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)    { }//--------------------------------
void mathErrorMsg (EMathError *E) {
 AnsiString S = "Ошибка вычислений: ";
 if (E->Message == "EZeroDivide") S += "деление на нуль";
 if (E->Message == "EOverflow") S += "переполнение";
 if (E->Message == "EInvalidArgument") S += "недопустимое число";
 Application->MessageBox(S.c_str(), "Повторите ввод", MB_OK);
}
void __fastcall TForm1::Button1Click(TObject *Sender) {
int k;
        TStringList *List = new TStringList;
        List->DelimitedText = Memo2->Text;
          String s2 = String(Edit2->Text);
          k=StrToInt(Edit3->Text);
        for (int i=0;i<List->Count;i++){
        String s=List->Strings[i];
      s=s.SubString(1,k)+s2+s.SubString(k,255);
    static int j;
    AnsiString resultStr =s+" ";
    Memo1->Lines->Add(resultStr);
} }//---------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Lines->Clear();
Memo2->Lines->Clear();
Edit2->Text="";
Edit3->Text="";
}

return;
// or
Abort();