отобразить историю нажатия Button и RadioButton

[Tokko1]

Дана задача: Пусть имеется форма,на ней размещены 5 RadioButton,причем пронумерованных по свойству Tag, и 5 Button. Требуется отобразить историю нажатия Button и RadioButton, как по отдельности, так и совместно.
Вот мой исходник, только он не выводить..... Помогите найти проблемму!!!( это на Delphi)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, XPMan;
const CountHistory=10;
type
  TActions=class
     ComponentNames:string;
     constructor Create(CN:string);
     function Print:string;virtual;
  end;
  TRB=class(TActions)
    NumRB:integer;
    constructor Create(NRB:integer);
    function Print:string;override;
  end;
  TB=class(TActions)
    NameB:string;
    constructor Create(NB:string);
    function Print:string;override;
  end;
  TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button6: TButton;
    Button7: TButton;
    XPManifest1: TXPManifest;
    procedure Button6Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  List:array[1..CountHistory] of TActions;
implementation

{$R *.dfm}
constructor TActions.Create(CN:string);
begin
  ComponentNames:=CN;
end;
constructor TRB.Create(NRB: Integer);
begin
  inherited Create('TRadioButton');NumRB:=NRB;
end;
constructor TB.Create(NB: string);
begin
 inherited create('TButton');NameB:=NB;
end;
function TActions.Print:string;
begin
  Result:=ComponentNames;
end;
function TRB.Print:string;
begin
   Result:=ComponentNames+'=>' +IntToStr(NumRB);
end;
function TB.Print:string;
begin
    Result:=ComponentNames+'=>' + NameB;
end;
procedure TForm1.Button6Click(Sender: TObject);
var
    i:integer;
    st:string;
begin
 if CheckBox1.Checked or CheckBox2.Checked then begin
   for i:=1 to CountHistory do
     if List[i]<>NIL then
       if (CheckBox1.Checked and (List[i].ComponentNames=CheckBox1.Caption))
       or (CheckBox2.Checked and (List[i].ComponentNames=CheckBox2.Caption)) then
          st:=st+IntToStr(i)+':'+List[i].Print+#13;
           ShowMessage('Spisok'+ #13+st);
            end else  ShowMessage('Parametri ne opredeleni');
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
var n:integer;
begin
   inc(n);
   if n<CountHistory then
      if Sender is TRadioButton then
           List[n]:=TRB.Create(TRadioButton(Self).Tag)
      else
           List[n]:=TB.Create(TButton(Sender).Name);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
close;
end;

end.

[Stilet]

А зачем ты хранишь список Действий?
может тебе проще при нажатии в TStringList вносить имя нажатого контрола?

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
 ListA.Add(Sender.Name+' : '+TimeTostr(time));
end;

А потом просто выводить в цикле то что в списке поместилось, учитывая что ListA - TStringList

[Tokko1]

Я бы с радостью, тока у нас препод идиот,ему надо именно так..... Прога у меня просто не выводит историю сообщений....я не могу понять почему!!!

[Stilet]

Отлаживай пошаговкой.... Только это тебя спасет.

[Tokko1]

Блин...все вроде идет нормально! И все равно не выводит! Жесть!

[Tokko1]

Помогите Плиз!

[evg_m]

procedure TForm1.RadioButton2Click(Sender: TObject);
var n:integer; //убери вот это 
begin
   inc(n);

используй глобальную переменную.

var
  Form1: TForm1;
  List:array[1..CountHistory] of TActions;
var n:integer; //добавь сюда

и не забудь где-то (например OnCreate) задать начальное значение
n:=0;

[Tokko1]

Все равно выводит пустое сообщение....Бред!