Помогите не могу добавить в richedit дату;

Смысл программы такой понажатию батон1. прога создает страницу.
а по нажатию батона2 она добавляет на активную страницу текущую дату.
Но вот беда если страница одна то все работае а вот если не одна а к примеру
5 то она добавит дату не на активную страницу а какую то одну.
Помогите скажите как это исправить чтоб дата ставилась на активную страницу/
Я начинающий и не знаю как это сделать.
С уважением Алексей/

вот код проги.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Rec : TRichEdit;
Page : Ttabsheet;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
page:=ttabsheet.Create(self);
page.PageControl:=pagecontrol1;
page.Caption:='NO_Name';
rec:=TRichEdit.Create(self);
rec.Parent:=page;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
rec.lines.add(datetostr(date));
end;
end.

Просто ты добавляешь дату к последнему созданому RichEdit, а тебе надо найти активную закладку и на ней найти RichEdit

<br>procedure TForm1.Button2Click(Sender: TObject);<br>var I:Integer;<br>begin<br>if PageControl1.ActivePage<>nil then<br> begin<br>   for I:=0 to PageControl1.ActivePage.ControlCount-1 do<br>    if PageControl1.ActivePage.Controls[i] is TRichEdit then<br>     begin<br>      TRichEdit(PageControl1.ActivePage.Controls[i]).Lines.Add(DatetoStr(Date));<br>      Break;<br>     end;<br> end;<br>end;<br>

Дурацкая раздевалка