Erro ao por Time o programa

[Xuxu]

E ai galera,

Estou tentando aprender sobre programação através de apostilas, escolhi o Delphi 7 desta forma surgiu a primeira dúvida, quando digito o texto informado aparece o seguinte erro:

Project Sistema.exe raised exception class ElistError with message 'List index out of bounds (0)'. Process stopped. Use Step or Run to continue.

O texto digitado foi este:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text:=''+FormatDateTime('hh:nn:ss',now);//17:10:00

StatusBar1.Panels[0].Text:=''+FormatDateTime('dddd","dd"de"mmmm"de"yyyy',now);//sábado, 30 de janeiro de 2010

end;

end.

No aguardo de alguma dica.

Vlw.

[Jhonas]

raised exception class ElistError with message 'List index out of bounds (0)'

menssagem de erro na lista do indice... de duplo clik no StatusBar para abrir o editor do painl do StatusBar, depois clique na 1ª pasta para inserir um paniel ( StatusBar1.Panels[0] ) e faça a modificação no código

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   StatusBar1.Panels[0].Text:=''+FormatDateTime('hh:nn:ss',now);//17:10:00
   StatusBar1.Panels[0].Text:= StatusBar1.Panels[0].Text + '  '+FormatDateTime('dddd"," dd" de "mmmm" de "yyyy',now);
end;

abraço

[Xuxu]

Amigo, boa noite!

Ainda não deu certo, continua aparecendo o mesmo erro e tudo esta conforme descrito.

Abraço

Editado Fevereiro 2, 2010 por Xuxu

[Jhonas]

Fiz o teste e esta funcionando

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   StatusBar1.Panels[0].Text:=''+FormatDateTime('hh:nn:ss',now);//17:10:00
   StatusBar1.Panels[0].Text:= StatusBar1.Panels[0].Text + '  '+FormatDateTime('dddd"," dd" de "mmmm" de "yyyy',now);
end;

end.

abraço