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

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

Код:

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.

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