var pop:TPOP3Send; begin pop:=TPOP3Send.create; try pop.AutoTLS := true; pop.Username:='yourusername'; pop.Password:='yourpassword'; pop.TargetHost:='your.pop3.host.com'; pop.AuthType:=POP3AuthAll; pop.login; pop.list(0); memo2.lines.Assign(pop.FullResult); pop.Retr(1); // pop.top(1,0); memo1.lines.Assign(pop.FullResult); pop.logout; finally pop.free; end; end;