TNMSMTP problem

Hej ! Mam taki problem ! Chciałem sobie napisać programik do wysyłania poczty, ale każda próba wysłania kończy się zwróceniem błędu "503 no recipient(s)" ! Nie za bardzo wiem o co chodzi....ale wiem że już raz udało mi się tak coś ustawić że mail się wysłał ! ale to było tylko raz i nie wiem czy to był przypadek czy po prostu coś jest źle ustawione ! proszę o pomoc w rozwionzaniu tego problemu ! jestem początkującym programistą....więc nie piszcie językiem którego nie zrozumie ! aktualnie używam borland c++ 6.0 enterprise. oto prawie cały kod źródłowy tego programu:

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

#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::FormCreate(TObject *Sender)
{
ListBox1->Items->Add("Pawel Hamerlik");
ListBox1->Items->Add("Jaroslaw Grzona");
ListBox1->Items->Add("Adrian Dziekan");
ListBox1->Items->Add("Patrycja Kroliczek");
ListBox1->Items->Add("Pawel Szczepanek");

From->Text = "[email protected]";

if (mail->Connected) mail->Disconnect();
else {
mail->Host = "mail.pf.pl";
mail->UserID = "lmdl";
mail->Connect();

if (mail->Connected)
StatusBar1->SimpleText = "Connected";
else StatusBar1->SimpleText = "Disconnected";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
String GetItem = ListBox1->Items->Strings[ListBox1->ItemIndex];
if (GetItem=="Pawel Hamerlik") {
Image1->Picture = img_hamer->Picture;
To->Text = "[email protected]"; }
if (GetItem=="Patrycja Kroliczek")
Image1->Picture = img_pass->Picture;
if (GetItem=="Adrian Dziekan") {
Image1->Picture = img_dziki->Picture;
To->Text = "[email protected]"; }
if (GetItem=="Pawel Szczepanek") {
Image1->Picture = img_lmdl->Picture;
To->Text = "[email protected]"; }
if (GetItem=="Jaroslaw Grzona")
Image1->Picture = img_jarko->Picture;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SENDClick(TObject *Sender)
{
if (mail->Connected)

{

  mail->PostMessage->FromAddress = "[email protected]";

  mail->PostMessage->ToAddress->Text = To->Text;

  mail->PostMessage->Body->Text = "wiadomosc_testowa";

  mail->PostMessage->Subject = Subject->Text;

  mail->PostMessage->ReplyTo = "[email protected]";

  mail->SendMail();

}

}

void __fastcall TForm1::mailSuccess(TObject *Sender)
{
ShowMessage("Wyslano pomyslnie");
}
//---------------------------------------------------------------------------