1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

procedure TForm1.bakenzeitTimer(Sender: TObject); 
var 
ba:string; 
wa:string; 
wp   : TWaveProvider; 

//wave:string; 
{$J+} const CanPlay: Boolean = True; {$J-} 
      begin 
      if (form3.Bake.Checked = true) then begin 
      wp := TWaveProvider.Create('bake1.wav'); 
      // ein paar Infos über's Wave ausgeben 
  //   Memo1.Lines.Add(+IntToStr(wp.DataHeader.length div wp.FormatData.AvgBytesPerSec)); 
      FreeAndNil(wp); 
  end; 

check.Enabled:=false; 
bakenzeit.Interval:=StrToInt(form3.bakenzeit.text)*1000 ; 
onoff.Picture.Bitmap.LoadFromResourceName(HInstance,'ON_BIT'); 
if pin = 'dtr' then DTR(true); 
if pin2 = 'rts' then RTS(true); 
sleep (2000); 
canPlay :=True; 
if CanPlay then 
begin 
//ba:='+wave+'; 
   sndPlaySound(PChar('bake1.wav'),SND_ASYNC); 
   CanPlay := False; 

Memo1.Lines.Add('Duration in Sec.: '+IntToStr(wp.DataHeader.length div wp.FormatData.AvgBytesPerSec)); 

sleep (+InToStr+);   //// Übergabe der Zeit von Memo1.Lines Add sprich die Sekunden die das wave lang ist müssen an Sleep übergeben werden mit einem *1000 damit das programm wartet bis das wave zu ende gespielt hat befor DTR und RTS auf false gehen 

// sleep (20000); 
// bakenzeit.Enabled:=false; 
//check.Enabled:=true; 

if pin = 'dtr' then DTR(false); 
if pin2 = 'rts' then RTS(false); 
  onoff.Picture.Bitmap.LoadFromResourceName(HInstance,'OFF_BIT'); 
check.Enabled:=true; 
  end; 
  end; 
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;
  PForm1 = ^TForm1;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function PlayMySound(x: Pointer) : Longint; stdcall;
begin
  Result:=0;
  if WaveOutGetNumDevs > 0 then begin
    sndPlaySound('wave.wav',SND_SYNC);
    PForm1(x)^.Label1.Caption:='Sound wurde abgespielt';
  end else PForm1(x)^.Label1.Caption:='Keine Soundkarte gefunden!';
end;

procedure TForm1.Button1Click(Sender: TObject);
var h: THandle;
    id: DWORD;
begin
  Label1.Caption:='Sound wird abgespielt';

  h:=CreateThread(nil,0,TFNThreadStartRoutine(@PlayMySound),@Form1,0,id);
  if h<>0 then CloseHandle(h);
end;

end.					

1:

PForm1 = ^TForm1;