Проблема с инструкцией

[kta87]

В Edit4 нужно запретить вводить все кроме цифр, но возможно дробные значения , а значит присутствуют символы ',' & '.' . При этом точку нужно заменять на запятую, а дальше с учетом различенных условий поместить курсор либо на Edit6 либо на Edit7. Пробую так:

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
 '0'..'9':;
  #8:;
  #13:;
  #40:;
  else Key:= Chr(0);
  if ((key = #13) or (key = #40)) and (Form1.ComBoBox3.ItemIndex = 19) then
   Form1.Edit6.SetFocus else
    begin
     if ((key = #13) or (key = #40)) then Form1.Edit7.SetFocus;
    end;
 end;
end;

Код компилируется, но не выполняется часть :

 if ((key = #13) or (key = #40)) and (Form1.ComBoBox3.ItemIndex = 19) then
   Form1.Edit6.SetFocus else
    begin
     if ((key = #13) or (key = #40)) then Form1.Edit7.SetFocus;
    end;
 end;
end;

Подскажите как исправить ?!

[mutabor]

Условия перехода курсора сам допиши. Этот код будет заменять все неподходящие символы на пустой и выходить из процедуры (не проверял, но должно работать).

if not (key in [0..9]) then 
  if key = '.' then key := ','
  else
    if key <> ',' then 
      if not (key in [#13, #40]) then key:='';

Эту часть логичнее сделать так:

if (key = #13) or (key = #40) then
  if ComBoBox3.ItemIndex = 19 then
    Edit6.SetFocus 
  else
    Edit7.SetFocus;

Соедини две эти части вместе и вот у тебя готовая процедура. Исправил верхнюю, так будет правильнее, опять таки не проверял.