Das mit den paar mehr nötigen Infos wurde ja schon gesagt,
darum solange erstmal was Anderes:
Deine Warteschleifen laßten die CPU zu 100% aus, da sie nichts anderes Machen, als durchgehend etwas abzufragen und notfalls auszuführen.
'ne kleine Pause schafft Abhilfe
Delphi-Quellcode:
repeat
Sleep(50);
Application.ProcessMessages;
until TimerStatus<>TSvideoFolge;
...
repeat
Sleep(50);
Application.ProcessMessages;
label1.Caption:=inttostr(timer1.interval)+'x'+inttostr(Timerstatus);
until TimerStatus<>TSvideoFolgePause;
Und bei Problemen (Exceptions) dürften einige Dinge nicht ordnungsgemäß beendet werden
z.B. würde Aufnahme auf True verbleiben.
ein paar Try-Finally-Schutzblöcke würden hier helfen.
Wird Timer1 auch irgendwann wieder abgestellt?
Ansonsten scheint mir der Programmablauf innerhalb des einen Buttons unglücklich gewählt und ich wirde darin nur den Start einleiten und den Rest über verschiedene/entsprechende Ereignisse steuern.