delphide belirlediğim zaman aralıklarında porta voltaj göndermek istiyorum zaman bitincede voltaj kesilsin istiyorum ama saat olarak sadece ilk baştaki saati alıyor program hangi zaman da açılmışsa o zaman ki saati baz alıyor sistem saatini kullanıyorum sonsuz döngü oluşturdum zaman sürekli saysın diye
while true do
buda programı durduruyor
procedure TForm3.Button1Click(Sender: TObject);
var
zaman1,zaman2,saat:TTime;
begin
saat:=time;
zaman1:=StrToTime(Edit1.Text);
zaman2:=StrToTime(Edit2.Text);
while true do
if CompareTime(zaman1,saat)=0 then
PortOut(888,4)
else
if CompareTime(zaman2,saat)=0 then
PortOut(888,0);

lütfen bana yardımcı olun

programda zamanları karşılaştırmayı şu şekilde denedim ama her zaman elseyi alıyor
if ((zaman3<=datetime)and(zaman4>=datetime))  then

zamaları
zaman3:=datetimepicker3.Time; şu şekilde alıyorum ama nasıl denersem deneyeyim karşılaştırmıyor
 
lütfen yardımcı olun zamanım daralıyor.

barutali ilgilendiğin için sağol yanlız benim sistem saatini kullanman gerekiyor birinci ve ikinici sayı arasında ki farkı alabilirim ama birinci saate sistem saati ile aynı olduğunda portun açılması gerekiyor bunda sorun yaşıyorum

bir de şu programda neden karşılaştırmıyor
zaman3:=datetimepicker3.Time;
zaman4:=datetimepicker4.Time
if ((zaman3<=datetime)and(zaman4>=datetime))  then
PortOut(888,4)
else
portout(888,0);

ÅŸimdiden tÅŸk

abi programın kendisini atsaydın exe si daha fazla kafamı karıştırdı diğerine uyarlamaya çalışıyorum ama sıkıntılarım oldu