Дисконект

[goodvin1709]

Помогите реализовать:
если отключился от сервера то изменить лабелку.
Пример:
хочу сделать так
если пх норм работает(Скрипт пашет) то в lab1.caption:='active';
Если дисконект то lab1.caption:='disconnect';

[supernewbie]

procedure OnDisconnect(WithServer:Boolean);

[goodvin1709]

Спасибо

[goodvin1709]

OnConnect(WithServer:Boolean);
OnConnect(WithClient:Boolean);
OnDisconnect(WithClient:Boolean);
OnDisconnect(WithServer:Boolean);
А такое есть?

[supernewbie]

WithServer - тру - дисконнект от серва, фолс - от клиента, с ОнКоннектом также

[goodvin1709]

Дай Пожалуйста простой скрипт что бы например при дисконекте переменную Увеличивало на 1 а при дисконекте клиента уменьшало на 1.

[supernewbie]

Сообщение от goodvin1709

Дай Пожалуйста простой скрипт что бы например при дисконекте переменную Увеличивало на 1 а при дисконекте клиента уменьшало на 1.

procedure OnDisconnect(WithServer:boolean);
begin
inc(i);
if WithServer then dec(i);
end;

[goodvin1709]

Блин а почему эта процедура непашет:

procedure OnDisconnect(WithServer:boolean);
begin
label79.Font.Color:=clRed;
label79.caption:='Off';
timer2.enabled:=false;
if WithServer then 
begin
label80.Font.Color:=clRed;
label80.caption:='Off';
end;
end;

Добавлено через 8 часов 48 минут
Нужно чтобы вместо Лога выводило:
Тунель ($124217792) уничтожен.
в лабелку.