IDpop3 cos o tym musi byc ;-)

najprostszy kodzik jaki moze byc o IDpop3 to

procedure TForm1.Button1Click(Sender: TObject);
var
Msg : TIdMessage;
i, x : integer;
s : string;
begin
IdPOP31.Host := 'mail.xxx.co.jp';
IdPOP31.Port := 110;
IdPOP31.UserId := 'userid';
IdPOP31.Password:= 'password';
IdPOP31.Connect;
for i := 1 to IdPOP31.CheckMessages do begin
Msg := TIdMessage.Create(Self);
IdPOP31.Retrieve(i, Msg);
Memo1.Lines.Add(Msg.Subject);
for x := 0 to Pred(Msg.MessageParts.Count) do begin
if Msg.MessageParts.Items[x] is TIdText then begin
s := TIdText(Msg.MessageParts.Items[x]).Body.Text;
Memo1.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT));
end;
end;
end;
IdPOP31.Disconnect;

co tu wiecej mówic...

daj to do FAQ moze?

Moze najpierw go popraw zanim wrzucisz do FAQ :-)
poza tym skoro juz cos zgapiasz to rob to dobrze.. :|

mam tu błąd

Memo1.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT));

mam tu błąd

Memo1.Lines.Add(jconvert.ConvertJCode(s, SJIS_OUT));

To nie blad :-)
On po prostu zgapil kod z jakiejs strony lub FAQ i nie naniosl poprawek na domyslne nazewnictwo :-) poza tym brakuje tam try, finally,except

możesz poprawić pliz.Szukam takiego czegoś od kilku dni