Информация сайта компьютерной безопасности
<<< Hack Style >>>

эта функция организовывает простой поиск мэил адреса
в переменной - text в которую вы должны передать текст
в котором предположительно должны быть адреса


//функция проверки символа на конец адреса
function Tform1.ogran(num:integer):integer;
begin
result:=pos(text.Text[num],',:;!/=+-()[]{}<>" @');
end;

procedure Tform1.loadadres(text:string);
var
adres:string;
i,j,k,ikon,inac,l:integer;
label c1,c2,c3;
i:=2;
l:=length(text);
c1: inc(i);
if i>=l-1 then exit;
if (text[i]<>'@') then goto c1;
if ((text[i-1]=' ') or (text[i+1]=' ')) then goto c1;
j:=i;
c2: dec(j);
if ((ogran(j)=0)and(j>0)) then goto c2;
inac:=j;
j:=i;
c3: j:=j+1;
if ((ogran(j)=0)and(j<l)) then goto c3;
if i+5>j then begin
i:=j;
goto c1;
end;
ikon:=j;
adres:=copy(text,inac+1,ikon-inac-1) ;
{обработка адреса здесь - он лежит в переменной adres}
showmessage(adres);
i:=j;
if i<l-6 then goto c1;
end;

все достаточно просто функция ищет сабаку - @ и пускает циклы влево и вправо пока не найдет
символ предпологаемого конца при нахождении начальной и конечной точки адреса
просто передает этот кусок в переменную адреса все просто ... при желании можно переделать
алгоритм добавляя еще проверку адреса на правильность но это кажется мне лишним
ведь в моем случае поиск происходит в "нормальном" тексте (у меня это html страничка) 
а не в каком то коде состоящим из множества @ ...

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru