Почтовый клиент

begin
 POP3.Host:='pop.gmail.com';
 POP3.Port:=995;          
 POP3.Username:='test+58r.ru'; 
 POP3.Password:='12345666';  
 IdMessage.Clear; 
 POP3.Connect; 
 Memo1.Clear;   
 POP3.Retrieve(1,IdMessage);  
 Memo1.Lines.AddStrings(IdMessage.Body); 
 POP3.Delete(1); 
 POP3.Disconnect;  
end;
 
procedure TForm1.Button2Click(Sender: TObject);
label f;
var
mailcicl:integer;  
addr:string;  
begin
 POP3.Host:='pop.gmail.com'; 
 POP3.Port:=995;           
 POP3.Username:='test+58r.ru'; 
 POP3.Password:='12345666';   
 addr:=ExtractFilePath(Application.ExeName); 
 POP3.Connect; //  подключение к серверу
 for mailcicl:=1 to 10 do 
 begin
 if POP3.CheckMessages<1 then goto f ; 
 IdMessage.Clear;   
 Memo1.Clear;   
 POP3.Retrieve(1,IdMessage); 
 Memo1.Lines.AddStrings(IdMessage.Body);
 Memo1.Lines.SaveToFile(addr+inttostr(mailcicl)+'.txt');
 POP3.Delete(mailcicl);
 end;
f:      //    метка выхода из цикла
POP3.Disconnect;  //  разрыв соединения с сервером
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
 i,numPosts: Integer;
 begin
 POP3.Host:='pop.gmail.com'; 
 POP3.Port:= 995;            
POP3.Username:='test+58r.ru';
 POP3.Password:='12345666';   
 IdMessage.Clear; 
 POP3.Connect; 
 Memo1.Clear;  
 POP3.Retrieve(1,IdMessage);  
 Memo1.Lines.AddStrings(IdMessage.Body); 
 
 .
 Label1.Caption := IdMessage.From.Text;
 Label2.Caption := IdMessage.Recipients.EmailAddresses;
 Label3.Caption := IdMessage.CCList.EMailAddresses;
 Label4.Caption := IdMessage.Subject;
 Label5.Caption := FormatDateTime('dd mmm yyyy hh:mm:ss', IdMessage.Date);
 Label6.Caption := IdMessage.ReceiptRecipient.Text;
 Label7.Caption := IdMessage.Organization;
 
 POP3.Delete(1); 
 POP3.Disconnect;   
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  SMTP.Host:='gmail.com';
  SMTP.Port:=465;    
  SMTP.Username:='test+58r.ru'; 
  SMTP.Password:='12345666';     
  SMTP.AuthenticationType:=atLogin;
 with IdMessage do
     begin
      Body.Assign(Memo1.Lines);
      From.Text := 'test@58r.ru';
      Recipients.EMailAddresses := 'test@58r.ru';
      Subject := 'Programmersclub.ru';
 
      end;
 
 
   SMTP.Connect;
   try
  showmessage('подключился');
  SMTP.Send(IdMessage);
   finally
      SMTP.Disconnect;
   end;
end;
 
end.

for mailcicl:=1 to 10 do 
if POP3.CheckMessages >= 1 then { если при CheckMessages менее 1 не нужно выполнять цикл,
следовательно, при остальных значениях тело цикла выполняется }
begin
  IdMessage.Clear;   
  Memo1.Clear;   
  POP3.Retrieve(1,IdMessage); 
  Memo1.Lines.AddStrings(IdMessage.Body);
  Memo1.Lines.SaveToFile(addr+inttostr(mailcicl)+'.txt');
  POP3.Delete(mailcicl);
end;