Испраивть ошибку

[UKRtortik]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in ['0'..'9']) = False then begin
Key:=Chr(0);
exit;
end;
WindSpeed;
end;

Если в edit содержатся буквы то не чего не делать, а если вводят цифры то выполнять процедуру WindSpeed; что я делаю не так?

[UKRtortik]

возможно с самой процедурой проблема. Если ввожу буквы не чего не происходит а если цифры то ошибка.

procedure TForm1.WindSpeed;
var v,v1:real;
begin
v:=StrToFloat(edit1.text);
v1:=v*3.6;
label3.Caption:=floattostr(v)+' м/с - это = '+FloatToStr(v1)+' км/час';
end;

[northener]

Когда вводится первая цифра в пустой эдит, то функция выполняется еще до того как эта первая цифра окажется в эдите.
Функцию WindSpeed логичнее перенести в Edit1.OnChange

[UKRtortik]

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

Когда вводится первая цифра в пустой эдит, то функция выполняется еще до того как эта первая цифра окажется в эдите.
Функцию WindSpeed логичнее перенести в Edit1.OnChange

спасибо!!!

[Streletz]

Ввод не числовых символов лучше блокировать через свойство NumbrsOnly Edit'а или используйте MaskEdit