function ParseEmail( Email: PChar): PChar;
//var p: PChar;
begin
  result:=strpos(Email, '@')+1;
//  if p <> nil then inc(p);
//  Result:=p;
end;