[Holms]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
IdPOP31.Username:=Copy(ListBox1.Items[0],1,Pos(';',ListBox1.Items[0])-1);
IdPOP31.Password:=Copy(ListBox1.Items[0],Pos(';',ListBox1.Items[0])+1,Length(ListBox1.Items[0])-Pos(';',ListBox1.Items[0]));
IdPOP31.Connect();
IdMessage1.Clear;
IdPOP31.Retrieve(i,IdMessage1);
for i:=1 to IdPOP31.CheckMessages do
IdPOP31.Retrieve(i,IdMessage1);
If POS (Edit1.text,IdMessage1.From.Address)=1 then
memo1.Lines.add(IdMessage1.Body.Text)
else showmessage('lol')

Admin: Пользуемся тегами!