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.