Укоротить код

[record222]

Приветствую друзья. Хотел спросить у меня не выполняеться данный код. Может что не правильно тут написано?

begin
     data:=Tstringlist.create;
     if form1.RadioButton1.Checked then
     begin
     data.Add('voting_answer_id=369');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
     end
     else
      if form1.RadioButton2.Checked then
      begin
     data.Add('voting_answer_id=370');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
     end
     else
      if form1.RadioButton3.Checked then
      begin
     data.Add('voting_answer_id=371');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton4.Checked then
      begin
     data.Add('voting_answer_id=372');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton5.Checked then
      begin
     data.Add('voting_answer_id=373');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton6.Checked then
      begin
     data.Add('voting_answer_id=374');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton7.Checked then
      begin
     data.Add('voting_answer_id=375');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton8.Checked then
      begin
     data.Add('voting_answer_id=376');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton9.Checked then
      begin
     data.Add('voting_answer_id=3777');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
      if form1.RadioButton10.Checked then
      begin
     data.Add('voting_answer_id=378');
     Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);
      end
     else
     ShowMessage('Выберите за кого голосовать!');
end;

Можно ли его как то укоротить? Может из за того что он большой не выполняеться хорошо не выполняеться?

P.S Всех с Наступающим Новым Годом

[BOBAH13]

У вас по моему каждый раз повторяется

Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);

Можно вынести в общую часть

[record222]

Я пробую выносить но не получаеться...
Получаеться если не выбран RadioButton, то код всеравно исполняеться

Gauge1.MaxValue:=strtoint(Edit1.text);
 Gauge1.Progress:=0;
 form1.Memo1.Lines.Add(timetostr(time) + ' - Кликаем '+Edit1.Text+' раз');
 for Thread:=1  to strtoint(Edit1.Text) do
  TNewThread.Create(false);
 Thread:=strtoint(Edit1.Text);

[BOBAH13]

Для случая когда ничего не выбрано есть оператор Exit();

[record222]

Спасибо! Буду пробовать. Если что не так, спрошу еще.