Pop3-протокол

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //Отправка сообщения
 ClientSocket1->Socket->SendBuf((Edit1->Text+"\r\n").c_str(),Edit1->Text.Length()+2);
}
//-----------------------------------------------
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
 //Прием сообщения
 char buf[1024];
 while(Socket->ReceiveLength())
 {
  Socket->ReceiveBuf(buf,1023);
  Memo2->Lines->Append(buf);
 }
}
//-----------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 //Подключение к серверу
 ClientSocket1->Open();
}

<Обработчик Нажатия клавищи>
begin
 ClientSocket1.Socket.SendBuf(<Здесь идет команда серверу с переходом на новую строку на конце>,
<Длинна этой самой команды>);
end;
//-----------------------------------------------
<Обработчик ClientSocket Read>
var
   buf = array [0..1024] of char;
begin
 while Socket.ReceiveLength > 0 do
 begin
  Socket.ReceiveBuf(buf,1023);
  Memo2.Lines.Append(buf);
 end;
end;
//-----------------------------------------------
<Другой обработчик Нажатия клавищи>
{
 ClientSocket1.Open;
}

var
St:TMemoryStream;
p:^Byte;
Size:Integer;
begin
ClientSocket1.Open;
St:=TMemoryStream.Create;
St.LoadFromFile(Edit1.Text);
Size:=St.Size;
ClientSocket1.Socket.SendBuf(Size, SizeOf(Size));
p:=St.Memory;
Size:=ClientSocket1.Socket.SendBuf(p^, St.Size);
St.Free;