Переделка с консоли в форму

#include <iostream>
#include <map>
#include <string>
#include <sstream>
#include <iomanip>
 
int main()
{
    setlocale(LC_ALL, "Russian");
    std::string delim(".:,;()-?!");//Разделители
    std::string string;
    //Ассоциативный контейнер, хранит пары (слово, число вхождений)
    std::map<std::string, size_t> freq;
    std::cout << "Введите строку" << std::endl;
    std::getline(std::cin, string);
    size_t str_count=0;//Число слов
    //Замена символов-разделителей из строки на пробел
    size_t index;
    while((index=string.find_first_of(delim))!=std::string::npos)
        string[index]=' ';
    //Разбиение строки на слова, помещение слов в ассоциативный контейнер и подсчет числа вхождений слова в строку
    std::stringstream ss(string);
    while(ss >> string)
    {
        ++str_count;
        freq[string]++;
    }
    std::cout << "Относительная частота вхождения каждого слова:" << std::endl;
    for(std::map<std::string, size_t>::iterator iter=freq.begin(); iter!=freq.end(); ++iter)
    {
        double p=static_cast<double>(iter->second)/static_cast<double>(str_count)*100;
        std::cout << "\'" << iter->first << "\': " << std::setprecision(4) << p << "%" << std::endl;
    }
    system("pause");
    return 0; 
}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
 String text;
 text = Form1->Memo2->Text;
  text = text.c_str();
 
 
 setlocale(LC_ALL, "Russian");
    std::string delim(".:,;()-?!");//Ðàçäåëèòåëè
    std::string string;
    //Àññîöèàòèâíûé êîíòåéíåð, õðàíèò ïàðû (ñëîâî, ÷èñëî âõîæäåíèé)
    std::map<std::string, size_t> freq;
    //std::cout << "text" << std::endl;
     string = text.c_str();
 
    std::getline(std::cin, string);
    size_t str_count=0;//×èñëî ñëîâ
    //Çàìåíà ñèìâîëîâ-ðàçäåëèòåëåé èç ñòðîêè íà ïðîáåë
    size_t index;
    while((index=string.find_first_of(delim))!=std::string::npos)
        string[index]=' ';
    //Ðàçáèåíèå ñòðîêè íà ñëîâà, ïîìåùåíèå ñëîâ â àññîöèàòèâíûé êîíòåéíåð è ïîäñ÷åò ÷èñëà âõîæäåíèé ñëîâà â ñòðîêó
    std::stringstream ss(string);
    while(ss >> string)
    {
        ++str_count;
        freq[string]++;
    }
    //std::cout << "Îòíîñèòåëüíàÿ ÷àñòîòà âõîæäåíèÿ êàæäîãî ñëîâà:" << std::endl;
    for(std::map<std::string, size_t>::iterator iter=freq.begin(); iter!=freq.end(); ++iter)
    {
        double p=static_cast<double>(iter->second)/static_cast<double>(str_count)*100;
 
         //Form1->Memo5->Lines->Add(p);
         Form1->Memo5->Lines->Add(iter->first.c_str());
         Form1->Memo5->Lines->Add( p);
        //std::cout << "\'" << iter->first << "\': " << std::setprecision(4) << p << "%" << std::endl;
         //rez = "iter->first";
         //Memo5->Lines->Add(rez);
    }
    Form1->Memo1->Text = text.c_str();
 
   
    return;
}

double p=static_cast<double>(iter->second)/static_cast<double>(str_count)*100;
std::cout << "\'" << iter->first << "\': " << std::setprecision(4) << p << "%" << std::endl;

char *token = AnsiString(Memo2->Text).c_str(), buf[81],*separators = "\t,. ";

Memo2->Lines->Add("Лексема "+ IntToStr( i)+" - " +(String)token);