Бегущая строка DELPHI

[muserun]

Здравствуйте.
Есть разработанное приложение на delphi. Полностью функциональное. Затеял вывести рекламные блоки, ну скажем стандартный размер 468Х60 в слайдер. Есть база данных для приложения. Хотел сделать так,что в базу данных сохраняются пути к файлу что залит по FTP и выводятся в блок в приложении.Тут вопрос,как сделать смену баннеров из разных полей? Само приложение для добавления строк сделали. Или может сделать php страницу и выводить уже с сайта?Тоже самое для бегущей строки. Нужна просто подсказка от специалиста,что делал нечто подобное.
Или может выводить несколько значений поля базы рандомно без анимации по таймеру?

[muserun]

procedure TFormRadio.Timer2Timer(Sender: TObject);
var
  r:integer;
begin
  r:=Random(zTable1.RecordCount+1);
  if r=0 then r:=1;
  if r>zTable1.RecordCount+1 then r:=zTable1.RecordCount;
  zTable1.RecNo := r;
  DBText1.Caption:= zTable1.FieldByName('racls_text').AsString;
end;

[BDA]

Если возможны номера от 1 до RecordCount, то чтобы не писать кучу if:

procedure TFormRadio.Timer2Timer(Sender: TObject);
begin
  zTable1.RecNo := 1 + Random(zTable1.RecordCount);
  DBText1.Caption := zTable1.FieldByName('racls_text').AsString;
end;

[muserun]

Спасибо.Уже так и сделал.

[muserun]

А если выводить не рандомно а к примеру по порядку от первой записи к последней и опять к первой?

[BDA]

zTable1.RecNo := (zTable1.RecNo mod zTable1.RecordCount) + 1;

[muserun]

Спасибо Вам еще раз...Помогло

[muserun]

Одно скажу....Вы мне сильно помогли