[haffo]

Puede ser que el error me lo de este procedimiento ???

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

Gracias por tu tiempo.