Paintbox

[umoveme]

Hi,

ih möchte Werte Random(100) in einer Paintbox darstellen, die entlang der x Achse gezeichnet werden.
Was habe ich falsch gemacht ?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Diagramm: TPaintBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure MesswerteZeichnen;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var k,n:integer;
var Messwerte:array of integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   inc(n);
   setlength (messwerte,n+1);
   Messwerte[n] := random(10);
   MesswerteZeichnen;
end;


procedure TForm1.MesswerteZeichnen;
var x_real :integer;
begin
   x_real := 40+k;
   Diagramm.Canvas.Pen.style := pssolid;
   Diagramm.Canvas.Pen.Color := clblue;
   Diagramm.Canvas.LineTo(x_real,Messwerte[n]);
   k:=+1;
end;

end.

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]