[Alegun]

Если без изысков обойтись, то можно вот так

Код:

var
i: integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 case i of
  0: Label1.Caption:='text';
  1: Label1.Caption:='text.';
  2: Label1.Caption:='text..';
  3: Label1.Caption:='text...';
  4: Label1.Caption:='text....';
  5: Label1.Caption:='text.....';
 end;
 Inc(i);
 if i > 5 then i:= 0;
end;

хотя это и не правильно. Можно ещё так

Код:

var
 i: integer = 0;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Label1.Caption:= Label1.Caption + '.';
 if i > 5 then
  begin
   i:= 0;
   Label1.Caption:='text';
  end;
 Inc(i);
end;