Дата: Понедельник, 20.04.2020, 13:48 | Сообщение # 1
Частый гость
Зарегистрирован: 10.03.2020
Группа: Пользователи
Сообщений: 50
Статус: Offline
Procedure Button1OnClick(Sender: TObject); var D,T: TDateTime; a: longint; begin D:=now; sleep(10000); T:=now; a:=T-D; sleep(a) end; программа не ест, не компилируется на 8 строчке, не понимаю.
