Таймер и вывод времени

procedure TMainForm.FormShow(Sender: TObject);
begin
Timer1.Interval := 10800000;
Timer1.Enabled:=True;
 
Timer2.Interval := 1000;
Timer2.Enabled:=True;
end;
 
procedure TMainForm.Timer1(Sender: TObject);
begin
end;
 
procedure TMainForm.Timer2(Sender: TObject);
begin
Label1.Caption := ????????;
end;

    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    k: integer; // <<== Вот это руками добавить
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 k := 0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
const HourX = 10800;
var h, m, s: word;
begin
 h := (HourX - k) div 3600;
 m := ((HourX - k) - h * 3600) div 60;
 s := (HourX - k) - h * 3600 - m * 60;
 if k < HourX
  then Label1.Caption := Format('Осталось: часов - %d, минут - %d, секунд - %d', [h, m, s])
  else begin
        Label1.Caption := 'ТВОЙ ЧАС НАСТАЛ!!!';
        Timer1.Enabled := false;
       end;
 inc(k);
end;