condicion IF

[haffo]

Hola a todos. Mi problema es el siguiente. Tengo un campo edit1 y un radiogroup2 con cuatro radiobuttons (9600 14400 28800 43200), al pulsar un radiobuttons un valor entero se coloca en el campo edit1 y viceversa, es decir, si coloco un valor en el edit1 el radiobutton asociado a ese numero se activa. Bien hasta ahora funciona perfectamente, pero quiero hacer que en el caso de que se introduzca en el edit1 un valor que no sea 9600 o 14400 o 22800 o 43200, saque un mensaje por pantalla (que ya lo tengo hecho) y se coloque por defecto en el radiobutton perteneciente al 9600, y que a su vez el campo edit se ponga en 9600. Tengo el siguiente codigo hecho pero cuando introduzco el primer digito en el edit1 ya me sale el mensaje anteriormente dicho. El código es el siguiente.

Gracias por anticipado.


procedure TForm1.Edit1Change(Sender: TObject);
begin
RadioGroup2.ItemIndex := TStringList(RadioGroup2.Items).IndexOf(Edit1.Text);
muestreo:=strtoint(edit1.text);

if (muestreo<>9600) or (muestreo<>14400) or (muestreo<>18800) or (muestreo<>43200) then
begin
showmessage('Frecuencia de muestreo no disponible, se usará 9600 Hz por defecto.');
muestreo:=9600
end
end;



procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
Edit1.Text :=RadioGroup2.Items[RadioGroup2.ItemIndex];
muestreo:=strtoint(edit1.text);
end;