[Бедный учитель]

Здравствуйте! Помогите решить мою проблему. Мне поручили сделать простую форму для отправки почтовых сообщений. Но так как в Дельфи, совсем чайник, решил я воспользоваться готовой программой, исходник которой, нашел в интернете. Все вроде бы ничего, но вот имеются две проблемы, которые я решить ни как не могу. Первая: нужны radiobutton как на втором варианте, вместо выпадающего списка, как сейчас, вторая: к тексту письма в почте необходимо добавлять текст из ”ФИО, Режим:” В общем, нужно, чтоб вышел Вариант№2. Код программы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

unit UAFQuickDemo;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, AFQuickMail, StdCtrls, Menus, Buttons, ExtCtrls;   type   TMainForm = class(TForm)     Label3: TLabel;     Label4: TLabel;     PopupMenu1: TPopupMenu;     Add1: TMenuItem;     Remove1: TMenuItem;     OpenDialog1: TOpenDialog;     ListBox1: TListBox;     Memo1: TMemo;     Label5: TLabel;     SpeedButton1: TSpeedButton;     Memo2: TMemo;     Memo3: TMemo;     SpeedButton2: TSpeedButton;     SpeedButton3: TSpeedButton;     SpeedButton4: TSpeedButton;     SpeedButton5: TSpeedButton;     ComboBox1: TComboBox;     SpeedButton6: TSpeedButton;     SpeedButton7: TSpeedButton;     SpeedButton8: TSpeedButton;     SpeedButton9: TSpeedButton;     RadioGroup1: TRadioGroup;     AFQuickMail1: TAFQuickMail;     procedure Add1Click(Sender: TObject);     procedure Remove1Click(Sender: TObject);     procedure SpeedButton1Click(Sender: TObject);     procedure SpeedButton4Click(Sender: TObject);     procedure SpeedButton5Click(Sender: TObject);     procedure SpeedButton6Click(Sender: TObject);     procedure SpeedButton9Click(Sender: TObject);     procedure AFQuickMail1AttachmentNotFound(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   MainForm: TMainForm;   implementation       {$R *.dfm}   procedure TMainForm.Add1Click(Sender: TObject); begin if opendialog1.Execute then     listbox1.Items.Add(opendialog1.FileName); end;   procedure TMainForm.Remove1Click(Sender: TObject); begin     listbox1.DeleteSelected; end;   procedure TMainForm.SpeedButton1Click(Sender: TObject); begin with AfQuickMail1 do     begin         ShowDialog := RadioGroup1.ItemIndex = 0;         ToEmail := memo2.Lines;     Subject := ComboBox1.Text;         FileNames.Assign(ListBox1.Items);         TextToSend.Assign(memo1.Lines);       Execute;    end; end;   procedure TMainForm.SpeedButton4Click(Sender: TObject); begin Close; end;   procedure TMainForm.SpeedButton5Click(Sender: TObject); begin     memo2.Lines.Clear;     memo3.Lines.Clear;   ComboBox1.Text := '';     ListBox1.Items.Clear;     memo1.Lines.Clear;     AfQuickMail1.ResetAll; end;   procedure TMainForm.SpeedButton6Click(Sender: TObject); begin If not AfQuickMail1.GetAddressBook(memo2.lines,memo1.lines,memo3.lines,4,'---') then     showmessage('Не заполнены поля'); end;   procedure TMainForm.SpeedButton9Click(Sender: TObject); begin afquickmail1.GetAddressBook(nil,nil,nil,0,'Адресная книга'); end;   procedure TMainForm.AFQuickMail1AttachmentNotFound(Sender: TObject); begin showmessage('----'); end;   end.

Админ: Пользуемся тегами для оформленияя кода!