Как создать skype bot messanger?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#import "Skype4COM.dll"
using namespace SKYPE4COMLib;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 
int _tmain(int argc, _TCHAR* argv[]) {
  // Инициализмруем COM соединение
  CoInitialize(NULL);
 
  // Создаем Skype объект
  SKYPE4COMLib::ISkypePtr pSkype(__uuidof(SKYPE4COMLib::Skype));
 
  // Соединяемся с Skype API
  pSkype->Attach(6,VARIANT_TRUE);
 
  // Получаем версию клиента и выводим ее
  _bstr_t bstrSkypeVersion = pSkype->GetVersion();
  printf("Skype client version %s\n", (char*)bstrSkypeVersion);
 
  //Печатаем версию COM "обертки"
  _bstr_t bstrWrapperVersion = pSkype->GetApiWrapperVersion();
  printf("COM wrapper version %s\n", (char*)bstrWrapperVersion);
 
  // Удаляем соединения со скайп
  pSkype = NULL;
  CoUninitialize();
 
  return 0;
}
}
//---------------------------------------------------------------------------

TForm1 *Form1;
 
// здесь вы объявляете функцию tmain()
int _tmain(int argc, _TCHAR* argv[]) {
// Инициализмруем COM соединение
  CoInitialize(NULL);
// Создаем Skype объект
  SKYPE4COMLib::ISkypePtr pSkype(__uuidof(SKYPE4COMLib::Skype));
// Соединяемся с Skype API
  pSkype->Attach(6,VARIANT_TRUE);
// Получаем версию клиента и выводим ее
  _bstr_t bstrSkypeVersion = pSkype->GetVersion();
  printf("Skype client version %s\n", (char*)bstrSkypeVersion);
//Печатаем версию COM "обертки"
  _bstr_t bstrWrapperVersion = pSkype->GetApiWrapperVersion();
  printf("COM wrapper version %s\n", (char*)bstrWrapperVersion);
// Удаляем соединения со скайп
  pSkype = NULL;
  CoUninitialize();
  return 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = "Версия Скайпа "+_tmain();
//  или просто
//  AnsiString str = _tmain();
  ShowMessage(str);
}

#import "Skype4COM.dll" 
using namespace SKYPE4COMLib; 
 
int main() { 
  CoInitialize(NULL); 
  ISkypePtr pSkype(__uuidof(Skype)); 
  pSkype->Attach(6,VARIANT_TRUE); 
 
  IChatMessage *message; 
  message = pSkype->SendMessage(_bstr_t(L"+xxxxxxxxxxx"), _bstr_t(L"Hello")); 
  printf("%s sent message", (char *)message->FromHandle); 
 
  pSkype = NULL; 
  CoUninitialize(); 
  return 0; 
}