procedure TForm1.Button1Click(Sender: TObject);
begin cliente.Host := 'correo.ipigto.rimed.cu';
cliente.Port := 143;
cliente.Username := 'NombreDeUsuario';
cliente.Password := 'contraseña';
cliente.Connect;
cliente.StatusMailBox('INBOX', MailBox1, [mdUnseen]);
Caption := 'Usted tiene ' + IntToStr(MailBox1.UnseenMsgs) + ' mensajes nuevos en la bandeja de entrada';
end;