Динамический график в Chart. Delphi

[Festovec]

Здравствуйте, первый раз работаю с Chart в Delphi, возник затык.
Цель
graph.jpg
Кодом, заставляю двигаться столбцы (Timer interval = 100):

procedure TForm1.Button1Click(Sender: TObject);
begin
k:=0;
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j: Integer;
d :Double;
begin
  d := 0.1;
  Series1.AddXY(513,250,'',clBlue);
  for j := 4 to 511 do begin
   Series1.AddXY((j*2+1),d,'',clBlue);
   d := d + 0.5;
  end;
 if k < 250 then begin
  for i := 4 to 512 do begin
    Series1.AddXY(i*2,k,'',clBlue);
  end;
  inc(k,10);
 end else begin k := 0; Series1.Clear; end;
end;

Результат:
graph2.png
Проблема в том, что столбцы очень тонкие и не получается сделать их шире. Или может какие-то другие предложения в реализации.
Заранее благодарен.