Ну наверно какая то база свободных СМТП серверов прописано в нем. В принцыпе мож сам глянуть. Создай виртуальную машыну, запусти Пинча и tcpdump и среди пакетов вылови через какой он сервер отсылает письма.
хы , ставишь аутпост файрволл запрещаешь соединения с www.сайт.com:80 ... или тебе код файрвола на делфи нада?
если ShowMessage(DBGrid1.Fields[5].AsString); то выдаёт сообщение 6570,989115 , аможно как чтобы после "," числа не писались? и вот ещё чего пишит ошибку? SzTip:='Соедидение установленно!'+ DBGrid1.Fields[5].AsString;
Если первое можно домыслить второе я вообще хз что ты спрашиваешь... Кто тебе ошибку выдаёт? Понятнее выражайся...
Используй: Copy(S: string; Index, Count: Integer): string Возвращает подстроку строки S, начинающуюся с S[Index] и содержащую до Count символов. Pos(Substr: string; S: string): Integer Возвращает позицию (индекс) первого вхождения Substr в S. Если Substr нет в S, возвращается 0. Например так: SzTip:='Соедидение установленно!'+ copy(DBGrid1.Fields[5].AsString,0,pos(',',DBGrid1.Fields[5].AsString);