TTimer dynamisch lampe anschalten und nach X ms wieder aus?

[snow]

Hallo

etwas einschalten und nach x ms wieder ausschalten.

Also dachte ich mir ://Nimmste einen Timer. gemacht getan.

Ich create also den Timer(self) und stelle x als Interwall ein. So wenn ich jetz den Timer beim 1. durchlauf sprich nach x ms wieder abschalte, dann sollte ich mein problem gelöst haben....

Aber dem war nicht so.

Da ich nicht immer eine bestimmte lampe einschalten muss, sondern quasi die lampe1 an und nach 100ms wieder aus, komme ich zu dem problem, das die OnTimer-procedure keine solchen Variablen hat. (ich müsste der procedure 2 integer Werte übertragen.)

Wie kann ich das machen? muss ich eine neue komponente schreiben, die eine solch spezielle OnTimer funktion enthält? und auf TTimer basiert.

Gruß snow.