Буфер обмена +Excel

 TNextGrid6* grid = static_cast<TNextGrid6*> (Sender);
 String st = "";
 if(Shift.Contains(ssCtrl)&&(Key == 'C') )
  for(int j = Y1; j <= Y2; ++j)
      {
       for(int i = X1; i <= X2; ++i)
          st += grid->Cells[i][j].Trim()+"  ";
       st +="\r\n";
      }
  Clipboard()->AsText = st.TrimRight();

    AnsiString fromClipboard,cell_data="";
    char * chBuffer;
    int i,row=0,col=0;
 
    OpenClipboard(NULL);
    HANDLE hData = GetClipboardData(CF_TEXT);
    chBuffer = (char*)GlobalLock(hData);
    fromClipboard = chBuffer;
 
    for(i=0;i<fromClipboard.Length();i++)
    {
        switch(chBuffer[i])
        {
            case '\r':continue;
            case '\t':
            {
                StringGrid1->Cells[col][row]=cell_data;
                cell_data="";
                col++;
                break;
            }
            case '\n':
            {
                StringGrid1->Cells[col][row]=cell_data;
                cell_data="";
                col=0;
                row++;
                if(i!=fromClipboard.Length()-1)StringGrid1->RowCount++;
                break;
            }
            default:
            {
                cell_data+=chBuffer[i];
                break;
            }
        }
    }
 
    GlobalUnlock(hData);
    CloseClipboard();

st += grid->Cells[i][j].Trim()+'\t';