Array timer, stringgrid hilft mir

[Feuerwehrmann90]

bei dir hat im profil offline gestnadne kp warum

also my neur quellcode sieht aus aber kp wie weiter

Delphi-Quellcode:

    ED_mittel: TEdit;
    ED_min: TEdit;
    timer: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure timerTimer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:integer ;
  max,min,mittel:real;
  grad:array[1..60] of real;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
timer.Enabled:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SG_ausgabe.Cells[0,0]:='Nummer';
SG_ausgabe.Cells[1,0]:='Datum/Zeit';
SG_ausgabe.Cells[2,0]:='Grad Celsius';
end;

procedure TForm1.timerTimer(Sender: TObject);
begin
for i:=1 to 60 do
SG_ausgabe.Cells[0,i]:=Inttostr(i);
SG_ausgabe.RowCount:=i;
max:=-15;
min:=-26;
mittel:=0;
ED_mittel.Text:=FloatToStr(mittel);
ED_min.text:=FloatToStr(min);
ED_max.text:=FloatToStr(max);
end;

end.