[Game]

Я уже немного начал, но кое-что не понимаю.
1. Задание: Создайте приложение, на форму которого помещены компоненты: Timer и Edit.
Для компонента Timer обработайте событие OnTimer, которое увеличивает число, за-писанное в компоненте Edit, на единицу каждую секунду. Если в компонент Edit введено не число, то таймер не работает.
1 Вот как сделать так, чтобы выяснить, введено число в Edit или нет?
2. Задание:Создайте приложение, на форму которого помещены компоненты: Timer и Button.
При нажатии на кнопку Button включается таймер.
В обработчике события OnTimer компонента Timer с интервалом в 2 секунды про-исходит случайное изменение положения компонента Button в пределах формы. При повторном нажатии на кнопку интервал таймера уменьшается в два раза, при ещё одном нажатии ещё в два раза и так далее.
как сделать, чтобы нажав на кнопку, интервал уменьшался в два раза?
3 Задание:
Создайте приложение, на форму которого помещены компоненты:
Button — 1 шт.
Label — 1 шт.
Edit — 2 шт.
Напишите обработчик события OnClick для компонента Button, который отображает в компоненте Label разность в днях и часах между датами, указанными в компонен-тах Edit.
Мое решение:
procedure TForm1.Button1Click(Sender: TObject);
var s,v:TDateTime;
begin
s:=StrToDateTime(Edit1.Text);
v:=StrToDateTime(Edit2.Text);
Label1.Caption:=DateTimeToStr(s-v);
все равно ошибка того, что введеные данные не являются форматов даты и времени.
4 Задание:
Создайте приложение, на форму которого помещены компоненты: Timer, Label и Edit.
Напишите обработчик события OnTimer компонента Timer, который каждую секун-ду отображает с помощью компонента Label период времени (в формате ЧЧ:ММ:СС), прошедший с момента, указанного в компоненте Edit (также в формате ЧЧ:ММ:СС).
Его я вообще не понимаю...не получается...

[ART]

1. Есть помоему функция TryStrtoInt (вроде такое название), если строка число, то возвратит true иначе false
2. Timer1.interval:=Timer1.interval div 2
3 - 4. http://rexinc.narod.ru/load.htm - качай и смотри