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

procedure TForm1.Button2Click(Sender: TObject);
var MsgCount, i, a: integer;
begin
 i:=0;
 // установка POP3
 POP.Host:=POP3.Text;
 POP.Port:=strtoint(portpop3.Text);
 POP.Password:=porol.Text;
 POP.Username:=Email.Text;
 POP.Connect;
 if POP.Connected=true then
 ShowMessage('Соединение установлено!');
 //Узнаем количество писем
 MsgCount:=POP.CheckMessages;
 col.Caption:=floattostr(MsgCount);
 //Получаем письма с почтового ящика
 if POP.CheckMessages>0 then
  for i:=1 to MsgCount do
    begin
      Msg.Clear;
      POP.Retrieve(1,Msg);
      Memo3.Lines.AddStrings(Msg.Body);
      POP.Disconnect;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var MsgCount, i, a: integer;
begin
 i:=0;
 // установка POP3
 POP.Host:=POP3.Text;//Получаем имя сервера из эдита
 POP.Port:=strtoint(portpop3.Text); // получаем номер порта из эдита
 POP.Password:=porol.Text;// Получаем пароль из эдита
 POP.Username:=Email.Text;// Получаем Имя пользователя из эдита
 POP.Connect;//Подключаемся
 if POP.Connected=true then
 ShowMessage('Соединение установлено!'); //если соединение установлено выводим сообщение
 MsgCount:=POP.CheckMessages;  //Узнаем количество писем
 col.Caption:=floattostr(MsgCount); //Выводим количество писем в лейбл
 //Получаем письма с почтового ящика
 if POP.CheckMessages>0 then
  for i:=1 to MsgCount do
    begin
      Msg.Clear;//Очищаем IdMessage
      POP.Retrieve(1,Msg);// Заносим туда письма с почты (не уверен что правильно)
      Memo3.Lines.AddStrings(Msg.Body); // Пытаюсь вывести письма в Memo
      POP.Disconnect; // отключаюсь
    end;
end;