procedure TCameraComponentForm.btnRefreshConfigClick(Sender: TObject);
var
a:string;
begin
a:=CameraComponent1.CaptureSetting.Width.ToString;

Memo1.Lines.Add( a);
end;

procedure TCameraComponentForm.btnRefreshConfigClick(Sender: TObject);
var
a:string;
begin
a:=CameraComponent1.CaptureSetting.Width.ToString;
  AddLog(a);
end;

procedure TCameraComponentForm.AddLog(a: string);
begin
  Memo1.Lines.Add(a);
end;