procedure TForm1.StartesequenzielleAufnahme1Click(Sender: TObject);
begin
while QAPIExtReadDI32(
handle, 0, 0) = 0
do
Aufnahme:=true; AnsichtUpdate1Click(self);
//aktualisiere Menüs
if form1.IniEinzelbild
then begin
// Foto - Sequenz
timer1.Interval:=form1.IniIntervall*1000;
TimerStatus:=TSBildFolge;
timer1.Enabled:=true;
end else begin
// Video - Folge
TimerStatus:=TSvideoFolge;
repeat
label1.Caption:='
Videoaufnahme';
NextDateiname;
EinVideo;
// aufnehmen
Timer1.Interval:=form1.IniEinzelVideoDauer*1000;
timer1.Enabled:=true;
repeat
Application.ProcessMessages;
//Abbruchmöglichkeit 1
until TimerStatus<>TSvideoFolge;
label1.Caption:='
Videoerholpause';
EinVideoStop;
// erholen
Timer1.Interval:=form1.IniErholzeit;
timer1.Enabled:=true;
repeat
Application.ProcessMessages;
//Abbruchmöglichkeit 1
label1.Caption:=inttostr(timer1.interval)+'
x'+inttostr(Timerstatus);
until TimerStatus<>TSvideoFolgePause;
until TimerStatus=TSStopAnforderung;
// abbruch?
Aufnahme:=false;
AnsichtUpdate1Click(self);
end;
end;