// щелчок на кнопке Пересчет
procedure TForml.ButtonlClick(Sender: TObject);
var
ms: integer; // скорость м/с
kmh: real; // скорость км/час
begin
// Если поле Editl пустое, то при выполнении функции
// StrToInt возникает ошибка.
// Проверим, ввел ли пользователь скорость в поле Editl

if Length(Editl.Text) = 0 then
begin
ShowMessage('Надо ввести скорость');
exit;
// завершить обработку события
end; ms := StrToInt(Editl.Text);
// ввести исходные данные
kitih := ms * 3.6;
// пересчитать
// вывести результат
Label3.Caption :=
IntToStr(ms) + ' м/с - это ' + FloatToStr(kmh) + ' км/час1
end;
// нажатие клавиши в поле Editl
procedure TForml.EditlKeyPress(Sender: TObject; var Key:
begin
// В поле Скорость (Editl) можно ввести только
// цифры. Процедура проверяет, является ли символ
// допустимым. Если нет, то она заменяет
// введенный символ нулевым. В результате символ
// в поле редактирования не отображается.
// Key — символ, соответствующий нажатой клавише
if not ((Key >= '0') and (Key <='9') or (Key = #8))
then Key := Chr(0);
end;
Char)|