Что выдает-то? Ошибку? Не срабатывает условие?
Если ошибка - напиши текст ошибки,
Если не срабатывает, поставь брекпоинты и смотри что выдает и с чем сравниваешь.
Попробуй:
вместо
Код:
If POS (Edit1.text,IdMessage1.From.Address)=1 then
memo1.Lines.add(IdMessage1.Body.Text)
else showmessage('lol')
Поставь
Код:
Memo1.Lines.Add(copy(IdMessage1.From.Address, 1, length(Edit1.Text))+'<=>'+Edit1.Text
Будет видно что с чем сравнивается