procedure TFrmTestbookStock.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9',#8]) then
begin
Key := #0;
exit;
end ;
end;
procedure TFrmTestbookStock.Edit10KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_return) then
Edit14.SetFocus;
end;