Abfragen des Input

[christheg]

so hab nun bischen rumgespielt (ganzen tag schon) möchte auch gerne das bischen anders probieren, nun hab ich ein altes schulprojekt mal rausgegraben, und will nun das mit dem abfragen einbasteln.

Delphi-Quellcode:

procedure TForm1.StartesequenzielleAufnahme1Click(Sender: TObject);
begin
  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;

das ist die prozedur die ich damit auslösen will

also muss ich das nun folgendermaßen einbinden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 while QAPIExtReadDI32(handle, 0, 0) = 0 do
    Application.ProcessMessages;
     label1.Caption:='Videoaufnahme';
       NextDateiname;
       EinVideo;                                        // aufnehmen
       Timer1.Interval:=form1.IniEinzelVideoDauer*1000;
       timer1.Enabled:=true;
 

end;

end.

ist das nun richtig gedacht oder komplet falsch?