Курсовая работа: Проектирование и разработка программы ЧАТ для локальной сети

ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Серверсоздан.');

ServerBtn.Tag:=1;

ServerBtn.Caption:='Закрытьсервер';

ServerTimer.Enabled:=True;

UserMas[0].Status:=1;

UserMas[0].Rec:=True;

UserMas[0].Name:=NikEdit.Text;

UserMas[0].Image:=1;

UpdDo:=True;

end

else

Begin

ServerTimer.Enabled:=False;

UserMas[0].Status:=0;

UserMas[0].Rec:=False;

UserMas[0].Name:='Неизвестный';

UserMas[0].Image:=0;

UpdDo:=True;

UserListView.Items.Clear;

ClientBtn.Enabled:=True;

HostEdit.Enabled:=True;

PortEdit.Enabled:=True;

NikEdit.Enabled:=True;

ServerSocket.Active:=False;

ChatMemo.Lines.Add('['+TimeToStr(Time)+'] Серверзакрыт.');

ServerBtn.Tag:=0;

ServerBtn.Caption:='Создатьсервер';

end;

end;