[KSN]

Код:

procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
if(LabeledEdit1.Text='')
or(LabeledEdit1.Text='-')
or(LabeledEdit1.Text=',')
or((Pos('-',LabeledEdit1.Text)<>0) and (Pos('-',LabeledEdit1.Text)<>1))
or((Pos(',',LabeledEdit1.Text)<>0) and (Pos(',',LabeledEdit1.Text)=1))
then Button1.Enabled:=False
else Button1.Enabled:=True

end;

procedure TForm1.LabeledEdit2Change(Sender: TObject);
begin
if(LabeledEdit2.Text='')
or(LabeledEdit2.Text='-')
or(LabeledEdit2.Text=',')
or((Pos('-',LabeledEdit2.Text)<>0) and (Pos('-',LabeledEdit2.Text)<>1))
or((Pos(',',LabeledEdit2.Text)<>0) and (Pos(',',LabeledEdit2.Text)=1))
then Button1.Enabled:=False
else Button1.Enabled:=True
end;
end.

Не могли бы Вы внести нужные изменения. Я не могу понять как именно это сделать.