TÉMA:

unit MainUnit;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Process;
 
type
 
  { TMyThread }
 
  TMyThread = class(TThread)
  private
    fStatusText: string;
    procedure ShowStatus;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: boolean);
  end;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
 
var
  Form1: TForm1;
  ShouldProcessRun: Boolean;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
var
  MyThread : TMyThread;
begin
  MyThread := TMyThread.Create(True);
  if Assigned(MyThread.FatalException) then
    raise MyThread.FatalException;
  ShouldProcessRun := True;
  MyThread.Start;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShouldProcessRun := False;
end;
 
{ TMyThread }
 
procedure TMyThread.ShowStatus;
begin
  Form1.Caption := fStatusText;
end;
 
procedure TMyThread.Execute;
var newStatus : string;
    aProc: TProcess;
begin
  fStatusText := 'TMyThread Starting ...';
  Synchronize(@Showstatus);
  aProc := TProcess.Create(nil);
  aProc.CommandLine:='/usr/bin/avconv -f video4linux2 -r 10 -i /dev/video0 test.avi';
  aProc.Execute;
  fStatusText := 'TMyThread Running ...';
  while (not Terminated) and (ShouldProcessRun) do begin
    newStatus:='TMyThread Time: '+FormatDateTime('YYYY-MM-DD HH:NN:SS',Now);
    if NewStatus <> fStatusText then begin
      fStatusText := newStatus;
      Synchronize(@Showstatus);
    end;
  end;
  aProc.Terminate(0);
  aProc.Free;
end;
 
constructor TMyThread.Create(CreateSuspended: boolean);
begin
  FreeOnTerminate := True;
  inherited Create(CreateSuspended);
end;
 
end.

  fStatusText := 'TMyThread Starting ...';
  Synchronize(@Showstatus);
  fStatusText := 'TMyThread Running ...';
  //while (not Terminated) and (true {any condition required}) do begin
  while (STATUS) do begin
 
       aProc:=TProcess.Create(nil);
      aProc.Options:=[{poWaitOnExit,} poUsePipes];
      aProc.CommandLine:='ffmpeg -f v4l2 -framerate 25 -video_size 640x480 -i /dev/video0 output.mkv';
      aProc.Execute;
      //aProc.Free;
     newStatus:='TMyThread Time: '+FormatDateTime('YYYY-MM-DD HH:NN:SS',Now);
 
    if NewStatus <> fStatusText then begin
      fStatusText := newStatus;
      Synchronize(@Showstatus);
    end;
  end; // end of while
  aProc.Terminate(0);
  aProc.Free;

aProc.Terminate(0);
  aProc.Free;

uses Process, ...;
var aProc: TProcess;
begin
  aProc:=TProcess.Create(nil);
  aProc.Options:=[poWaitOnExit, poUsePipes];
  aProc.CommandLine:='/usr/bin/avconv -f video4linux2 -r 10 -i /dev/video0 test.avi';
  aProc.Execute;
  aProc.Free;
end;

# rgbgtkroutines.pas
...
// gtkDef, gtkProc,
 gtk2Def, gtk2Proc,
 RGBTypes;
...

$ rpm -qa|grep binutil
binutils-arm-linux-gnu-2.24-5.fc20.x86_64
cross-binutils-common-2.24-5.fc20.noarch
binutils-2.23.88.0.1-13.fc20.x86_64