Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+94
var s:string;
begin
cs.Active:=true; //Коннектимся
if cs.Socket.Connected=true then begin //Если подключились то
memo1.lines.add('Соединение установленно...'); //пишим в memo
end else //в противном случае пишим это
memo1.lines.add('Соединение неустановленно...'); //<--вот это :)
>теперь у формы в событии OnGreate пишим
Это капец....
http://forum.hackforce.ru/thread1685.html#post405879
Запостил: 
Govnocoder#0xFF,
15 Июля 2011
Follow us!
Мы знаем, вы уже говорили.
>memo1.lines.add('Соединение неустановленно...'); //<--вот это :)
Полезные каментарии. :) ;) х)
простите не удержался