unit testrs; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,radioscroller,jpeg; type TForm1 = class(TForm) Button1: TButton; rs: TRadioScroller; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var n : integer; b : tjpegimage; bp : tbitmap; s : string; begin doublebuffered:=true; rs.across:=4; rs.width:=width-100; rs.height:=height-100; for n:=1 to 40 do begin b:=tjpegimage.create; bp:=tbitmap.create; s:='tst\a ('+inttostr(n)+').jpg'; b.loadfromfile(s); bp.assign(b); rs.add(bp,'BBC Radio 4','Talk and comment and other stuff that goes on a lot blah do doh, thiny whatit. Today the programme and hello how are you and all that Jazz. And more bunf and blurbery to take this line to its end. And On and One and One and One and One and One',''); b.free; bp.free; end; end; end.