Hilfe Bei Video Program

[serasa]

Hallo zusammen ich habe ein kleines Program geschrieben für eine video aufnahme, welches in einem teil so ausschaut:

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
       until TimerStatus<>TSvideoFolge;
       label1.Caption:='Videoerholpause';
       EinVideoStop;                                    // erholphase
       Timer1.Interval:=form1.IniErholzeit;
       timer1.Enabled:=true;
       repeat
         Application.ProcessMessages;                   //Abbruchmöglichkeit
         label1.Caption:=inttostr(timer1.interval)+'x'+inttostr(Timerstatus);
       until TimerStatus<>TSvideoFolgePause;
     until TimerStatus=TSStopAnforderung;              // abbruch?
     Aufnahme:=false;
     AnsichtUpdate1Click(self);
  end;
end;

nun wird das ganze mit hilfe einer optokoppler Karte und einer kleinen steuerspannung über einen taster gestartet,

der teil mit dem programm code müsste so aussehen laut hersteller

Delphi-Quellcode:

while QApiExtReadDl1(...) = 0 do
  Application.ProcessMessages;

für mich ist nun die frage wie ich den teil für die aufnahme einbinden muss, damit die aufnahme rein über den taster gemacht wird ohne das ich nun vorher die aufnahme aktivieren muss. also das es nur über den tastendruck aktiviert wird.