Пересчитать скорость ветра,заданную в метрах в секунду,километров в час

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',', '.']) then
Key:=#0;
if (key=',') or (key='.') then
key:= DecimalSeparator;
end;

//i -переменная integer для массива, s -  это введенная строка, s1 - строка для проверки 
for i:=1 to length(s) do
if s[i] not (in ['0'..'9']) then
begin 
edit1.text:=''; // чистим строку 
label1.caption:='Число не соответствует условию'; //выводим сообщение в ответ
Break; //прерываем цикл 
end
else
s1:=s1+s[i];
if s=s1 then 
begin
  //тут вы делаете подсчет скорости ветра и вывод
end;

var ms, kmc: real;
begin
kmc:=ms*3,6;
end;

function MSecToKmHour(Metr:Integer):Float;
Begin
     Result:=(Metr*3600)\1000;
End;

function MSecToKmHour(Metr:Integer):Float;
Begin
     Result:=(Metr*3600)\1000;
End;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;