комментарии к C++ - Компьютерный форум OSzone.net

ребят помогите пожалуйста. Есть программа(e-mail клиент) написана на C++ builder, помогите пожалуйста разобраться с кодом, нужны комментарии к каждой строке, после чего мне нужно будет ее модифицировать, но это уже моя проблема, главное знать где это изменять, а понять смогу исходя из комментариев к коду, заранее спасибо.
P.S. если вам жалко либо лень ответить не нужно писать про то какой я лентяй и все такое.

Код:

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)

{

Memo1->Lines->Clear();

 IdSMTP1->Host=Edit1->Text;

 IdSMTP1->UserId=Edit2->Text;

 IdSMTP1->Password=Edit3->Text;

 IdSMTP1->Connect();

 NMPOP31->Host=Edit1->Text;        

 NMPOP31->UserID=Edit2->Text;

 NMPOP31->Password=Edit3->Text;

 NMPOP31->Connect();

}

//---------------------------------------------------------------------------



void __fastcall TForm1::NMPOP31Connect(TObject *Sender)

{

Memo1->Lines->Add("Соединение!");

 int MC=NMPOP31->MailCount;

 Memo1->Lines->Add("Писем: "+IntToStr(MC));

 AnsiString fr;

 if (MC)

 {

  for (int t=1; t<=MC; t++)

  {

   Application->ProcessMessages();

   NMPOP31->GetSummary(t);

   fr = NMPOP31->Summary->From;

   ComboBox1->Items->Add(fr);

  }

 }

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

AnsiString subj;



 int tt=ComboBox1->ItemIndex+1;

 Application->ProcessMessages();

 NMPOP31->GetSummary(tt);

 subj = NMPOP31->Summary->Subject;

 Memo1->Lines->Clear();

 Memo1->Lines->Add(subj);

 NMPOP31->GetMailMessage(tt);

 TMailMessage *mess=NMPOP31->MailMessage;

 TStringList *s=mess->Body;

 Memo1->Lines->AddStrings(s);

 }

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

IdSMTP1->Disconnect();

NMPOP31->Disconnect();

Memo1->Lines->Clear();

Memo1->Lines->Add("Соединение завершено!");

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

IdMessage1->Subject=Edit5->Text;

IdMessage1->From->Address=Edit2->Text;

IdMessage1->Body->Text=Memo2->Text;

IdMessage1->Recipients->EMailAddresses=Edit4->Text; //Получатель

IdSMTP1->Send(IdMessage1);

}

P.S.S. если нужно могу скинуть саму программу