условия RadioGroup

[delvan]

Здравствуйте!Помогите,пожалуйста,ра зобраться с условиями RadioGroup. В данной программе,когда я выбираю,например,мужской пол,пишется все равно женский и тоже самое с выбором праздника.Т.е. независимо от того,какую кнопку нажмешь,выбирается все равно 2-я кнопка.

procedure TForm1.BFontClick(Sender: TObject);
begin
  if FontDialog1.Execute then
    Memo1.Font.Assign(FontDialog1.Font);
end;

procedure TForm1.BBpClick(Sender: TObject);
var
   W: Variant;
   i: integer;
   s: string;

   procedure Insert(si: string);
   begin
      W.Font(Memo1.Font.Name, Memo1.Font.Size);
      if (fsBold in Memo1.Font.Style) then
      W.Bold;
      if (fsItalic in Memo1.Font.Style) then
      W.Italic;
      if (fsUnderline in Memo1.Font.Style) then
      W.Underline;
      W.Insert(si+#10);
    end;
begin
   W:=CreateOleObject('Word.Basic');
   W.AppShow;
   W.FileNew ;
   if RPol.ItemIndex=0 then
       Insert('Уважаемый, '+combobox2.Text+'! ')
   else
       Insert('Уважаемая, '+combobox2.Text+'! ')  ;
   W.AppShow;
   if RPr.ItemIndex=0 then
       Insert('Поздравляю  с  Новым  годом ! ')
   else
       Insert('Поздравляю  с  8-м  марта ! ')  ;
   for i:=0 to Memo1.Lines.Count do
       Insert(Memo1.Lines[i]);
   if RPr.ItemIndex=0 then
        s:='Записать данные в файл?'
      else
        s:='Напечатать письмо?';
   if MessageDlg(s, mtConfirmation, [mbYes, mbNo], 0) = mrYes     then
     if ROp.ItemIndex=0 then
        W.FileSave
     else
        W.FilePrint;
   W.DocClose(2);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var sl:TstringList;
     i:integer;
begin
ComboBox2.Text:='';
ComboBox2.Items.Clear;
  sl:=TStringList.Create;
  sl.LoadFromFile(combobox1.Text+'.txt');
  for i:= 0 to sl.Count - 1 do
   combobox2.Items.Add(sl.Strings[i]);
  sl.Free
end;

end.

[newerow1989]

Надо нажать на 3 точки в свойстве Items (см. рис.), и там заполнить. А RadioButton-ы можно удалить. Таким образом переключений не будет.

[delvan]

Спасибо.Но у меня задание, чтобы были именно радиокнопки..

Подскажите,а как сделать тройное условие?т.е. чтобы из трех вариантов выбирать.