各位大侠：DELPHI菜鸟有急事求救(100分)

各位大侠：
DELPHI菜鸟有急事求救。
关于如何将某一条记录的备注型字段的值在另外一个FORM中显示出来，要求在FORM中显示时不断在FORM中从下至上的显示，有点象招聘广告中的职位显示的情况一样。
如备注型字段值如:MEMO.LINE::单位:某某厂
招聘职位:主管，要求 本科以上…..2名
时间:2003.6.25.
需要:单位:MEMO.LINE[0],LINE[1],LINE[2],不断的从FORM的底部移动到顶部，移动到顶部后又从新从底部移动到顶部，不断的重复显示，除非有停止。]

rxlib的TSecretPanel可以完成你需要的功能。

放一个memo啊，然后不段改变memo的高度，并判断超出了就重新来一次。思路，你试看。

将这些值都放在一个panel上,把panel的边缘设为平整,然后加一个timer,每隔一小段时间将
panel的top加一点，加到一定值（底部超过form顶部，可自己试验判断）时，再将panel
的top值设到form的底部

realLearning
请问何处有控件RXLIB下载
另外听说可以用画布编写，如何编写？

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
p:Tpoint;
//点；画布从该点开始绘
MoveDir:Boolean;
//true向下移动
end;

var
Form1: TForm1;
implementation
const Str='layout information!';
{$R *.DFM}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
refresh;
if p.y >=self.Height then
Movedir:=false;
if p.y<=0 then
Movedir:=true;
if MoveDir then
begin
p.y:=p.y+10;
//移动步长
end
else
begin
p.y:=p.y-10;
//移动步长
end;
CanVas.TextOut(p.x,p.y,str);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
p.x :=1;
p.y :=1;
Canvas.Brush.Color :=clMenu;
MoveDir:=true;
end;
end.