1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Timer6Timer(Sender: TObject);
begin
Label2.visible:=true;
if sound < StrtoTime('00:00:01') then
    SndPlaySound( 'lachen.WAV', SND_ASYNC )
   else
    begin
      sound:=sound - 1 / SecsPerDay;
end;					

1:
2:
3:
4:
5:
6:
7:

Label2.visible:=true;
if sound < StrtoTime('00:00:01') then
    SndPlaySound( 'schaf.WAV', SND_ASYNC )
Timer6.enabled:=false
   else
    begin
      sound:=sound - 1 / SecsPerDay					

1:
2:
3:
4:
5:
6:
7:
8:

  Label2.visible:=true;
  if sound < StrtoTime('00:00:01') then
    SndPlaySound( 'schaf.WAV', SND_ASYNC )

  Timer6.enabled:=false
  else
  begin
    sound:=sound - 1 / SecsPerDay					

1:

Zeit:= StrtoTime('00:00:05');					

1:

[Error] Unit1.pas(70): Incompatible types: 'TDateTime' and 'String'					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  filename: String;
begin
UrlDownloadtofile(nil,PChar('http://www.farm-house.de/shaun/einstellungen.ini'),PChar(ExtractFilePath(Application.Exename) + 'einstellungen.ini'),0,nil);
filename := ExtractFilePath(ParamStr(0)) + 'einstellungen.ini';
  ini := TIniFile.Create(filename);
Zeit:=ini.ReadString('Zeit','Zeit1','');
time:= StrtoTime('00:00:05');					

1:

Zeit:=StrtoTime(ini.ReadString('Zeit','Zeit1',''));