Курсовая работа: Разработка программного продукта на языке высокого уровня

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if not (Key in ['0'..'9', ',',Chr(VK_BACK)]) then Key := #0;

end;

end.