Problem mit TTimer bei aktivierung durch einen TButton!

[Coolkakashi]

Delphi-Quellcode:

procedure Tmess_form.btn_heizungClick(Sender: TObject);
begin
  if
    btn_heizung.Caption = 'Heizung'
  then begin
    btn_heizung.Caption := 'Läuft...';
  end
  else begin
    btn_heizung.Caption := 'Heizung';
  end
end;
const
  BAR_CONST = $0409;
begin
  SendMessage(pgr_bar.Handle, BAR_CONST, 100, clRed);
end

Ka was ich machen soll, komm einfach net klar Hab selbst vergessen wie ich die Round funktion richtig einsetze, und auch nicht, wie ich einen bereich bei random festlege! sry das ich so grotten bin.