var
  textToDraw:string = 'ImageEn is an extensive component suite for image editing, display and analysis written in pure VCL '+
                      'code for Delphi and C++ Builder, and is also available for .NET.  Thousands of software developers '+
                      'use ImageEn to add powerful multimedia functionality to their applications.  Learn how easy it is to enhance your software with ImageEn!';
  pos:integer = 0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(pos);
  if pos = length(textToDraw) then
    pos := 0;
  ImageEnView1.Update();
end;

procedure TForm1.ImageEnVect1DrawBackBuffer(Sender: TObject);
begin
  with ImageEnView1.BackBuffer, Canvas do
  begin
    Font.Color := clBlue;
    Brush.Style := bsClear;
    Font.Name := 'Times New Roman';
    Font.Height := 24;
    TextOut(0, Height-Font.Height, copy(textToDraw, pos, Width div TextWidth(' ')));
  end;
end;