mhm du kannst die Zahl Runden in dem du die RoundTo-Funktion aus der
Unit Math nutzt, die musst du dann einbinden.
Aber wäre es nicht Sinnvoller nur ganze Zahlen zu nehmen? d.h. nachher einfach Random(55)-15 zu nehmen, somit hättest du dann eine Temperatur und im Timer würde ich dann einfach den wert nur immer um irgendeinen Summanden erhöhen, ich glaube das würde das erleichtern
E: zum Thema Heizung, vllt wäre es auch "schön" wenn du eine ProgressBar einbaust, deren Property "Orientation" auf pbVertical und dann Breite und Höhe anpassen, sowie Min und Max-Werte. Zu dem kannst du dann auch die Farbe ändern abhängig von der Temperatur
Delphi-Quellcode:
const
BAR_CONST = $0409;
begin
SendMessage(ProgressBar1.Handle, BAR_CONST, 0, clRed);