Wave nur 1 Mal spillen mit Timer

[dac424]

Hallo liebe leute mal wieder ein problem wo ich nicht weiter komme wäre echt klasse wenn einer helfen kann Sourcecode
ausgeblendet markieren

Code:

  procedure TForm1.Timer3Timer(Sender: TObject);  
begin  
if (form3.Bake.Checked = true) then begin  
 if pin = 'dtr' then DTR(true);  
 if pin2 = 'rts' then RTS(true);  
 onoff.Picture.Bitmap.LoadFromResourceName(HInstance,'ON_BIT');  
 sndPlaySound(PChar('bake1.wav'),SND_ASYNC);  
  Timer3.Enabled:=false;  
  dtr(false);  
  rts(false);  
end;  
end;

die RS232 soll DTR und RTS auf True setzen und das wave file nur 1 Mal abspielen danach den Timer resetten und RTS bzw. DTR auf False setzen

das wave wird zwar abgespielt!!! aber nicht nur 1 mal sondern in einer schleife

der Timer schaltet nicht auf false und RS232 wird nicht aktiviert HILEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
warum macht der das nicht.


komisch an dieser Stelle Gehts ja
hier wird auf jeden fall der Timer resttet wen plötlich über die Sound Karte noch was zu hören ist

begin
Timer3.Enabled:=false;
sndPlaySound(nil,0);
if pin = 'dtr' then DTR(true);
if pin2 = 'rts' then RTS(true);
onoff.Picture.Bitmap.LoadFromResourceName(HInstanc e,'ON_BIT');

Code:

 begin  
           Timer3.Enabled:=false;  
           sndPlaySound(nil,0);  
           if pin = 'dtr' then DTR(true);  
            if pin2 = 'rts' then RTS(true);  
           onoff.Picture.Bitmap.LoadFromResourceName(HInstance,'ON_BIT');

ist eine Andere Procedur aber da geht es.

Moderiert von AXMD: Code- durch Delphi-Tags ersetzt.