TMemo / TButton / TTcpClient を設定。 TTcpClient には RemoteHostに自分のNPOP サーバと RemotePortに110
procedure TForm1.Button1Click(Sender: TObject);
procedure msg(s:string);
　begin　Memo1.Lines.Add(s) 　end;
function Send(s:string):string;
var w:string;
　begin 　msg('送信 :' + s);
　with　TcpClient1 do begin 　Sendln(s); 　Sleep(300); 　WaitForData(1000);
　　w:= Receiveln;　　msg(w);
　if copy(w,1,3)<>'+OK' then abort;//通信エラー
　　delete(w,1,4);
　　Result:=w;
　end
end;
var w:string;
begin
　TcpClient1.Open;
　if not TcpClient1.Active then abort;
　msg('Active');
　　TcpClient1.Connect;
　　TcpClient1.WaitForData(1000);
　if not TcpClient1.Connected then abort;
　Send('USER '+user);　　Send('PASS '+pass);
　Send('STAT');
　Send('LIST');
　TcpClient1.WaitForData(1000);
　while TcpClient1.BytesReceived>0 do begin
　 with TcpClient1 do w:= Receiveln; msg(w);
　 TcpClient1.WaitForData(1000);
　if copy(w,1,1)='.' then break;
　end;
end;