Sekunden an einen Timer übergeben

[Tavik]

ja aber wohin? dat läuft immernoch nicht! selbst wenn ich jetzt den Timer mit Button1 starte
kommen mit meinen eingabeweten 0,3600,3600 zwar die ein stunde, aber die fängt nicht an zu laufen!

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    Edit2: TEdit;
    GroupBox4: TGroupBox;
    Edit3: TEdit;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Edit4: TEdit;
    Timer1: TTimer;
    Button1: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  vorhanden, prostunde, benoetigt, fehlend:real;
  zeitstunden :real;
  zeitsekunden:integer;
  h,m,s:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(zeitsekunden);
vorhanden:=     strtofloat(Edit1.Text);
prostunde:=     strtofloat(Edit2.Text);
benoetigt:=     strtofloat(Edit3.Text);

fehlend:=       benoetigt - vorhanden;
zeitstunden:=   fehlend / prostunde;
zeitsekunden:=  round(zeitstunden * 3600);

h:=             zeitsekunden div (60 * 60);
zeitsekunden:=  zeitsekunden - h*60*60;
m:=             zeitsekunden div 60;
zeitsekunden:=  zeitsekunden - m*60;
s:=             zeitsekunden;

Edit4.Text:= 'h: '+inttostr(h)+' min: '+inttostr(m)+' sec: '+inttostr(s);
end;

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

end.

ich verzweifele, und du auch!
mach dem bitte ein Ende und erklär es einem NOOOOOOOOB wie mir ausführlich! wohin mit dem Button?
gruss
sascha


erklär mir doch der einfachkeit halber mal das prinzip der prozeduren und wie sie sich gegenseitig beeinflussen können!