Ошибка EAccessViolation при доступе к элементам массива

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString tekst;
float col;
float row;
if (Edit1->Text.IsEmpty())
  {
        ShowMessage("Поле не заполненно.");
  } else
  {
        col=Edit1->Text.Length();
        char *wkey=new char[col];
        strcpy(wkey,Edit1->Text.c_str());
        tekst=Memo1->Text;
        float sl;
        sl= tekst.Length();
        row=sl/col;
        row=ceil(row);
        AnsiString tekst1;
 
        char **txt=new char*[row];
        for (int i=0;i<row;i++) txt[i]=new char[col];
        int k=1;
 
        for (int i=0;i<row;i++)
                for (int j=0;j<col;j++)
                {
                        if (k<sl)
                        {
                                txt[i][j]=tekst[k] ;
                                k++;
                                Memo2->Lines->Add(tekst[k]);
                        }
                };
 
        char min=wkey[0];
        k=2;
        int n;
        for (int t=0;t<col;t++)
        {
                for (int f=0;f<col;f++)
                if (min>wkey[f]&&wkey[f]!=' ')
                {min=wkey[f];
                n=f;};
                wkey[n]=' ';
                for (int i=0;i<row;i++)
                        {
                                if (k<sl)
                                {
                                        tekst1[k]=txt[i][n];
                                        k++;
                                }}}
         Memo1->Lines->Add(tekst1);} ;
}