Как изменить параметр в структуре в WinAPI?

CaptureParms.fYield := True;

const
   WM_CAP_START                  = WM_USER;
   WM_CAP_SEQUENCE               = WM_CAP_START + 62;
   WM_CAP_DRIVER_CONNECT         = WM_CAP_START + 10;
   WM_CAP_SEQUENCE_NOFILE        = WM_CAP_START + 63;
   WM_CAP_FILE_SAVEAS            = WM_CAP_START + 23;
   WM_CAP_SET_SEQUENCE_SETUP     = WM_CAP_START + 64;
   WM_CAP_GET_SEQUENCE_SETUP     = WM_CAP_START + 65;
   WM_CAP_DRIVER_GET_CAPS        = WM_CAP_START + 14;

type CAPTUREPARMS                   = ^TCAPTUREPARMS;
    TCAPTUREPARMS                   = record
        dwRequestMicroSecPerFrame   : DWORD ;   // Requested capture rate
        fMakeUserHitOKToCapture     : BOOL  ;   // Show "Hit OK to cap" dlg?
        wPercentDropForError        : UINT  ;   // Give error msg if > (10%)
        fYield                      : BOOL  ;   // Capture via background task?
        dwIndexSize                 : DWORD ;   // Max index size in frames (32K)
        wChunkGranularity           : UINT  ;   // Junk chunk granularity (2K)
        fUsingDOSMemory             : BOOL  ;   // Use DOS buffers?
        wNumVideoRequested          : UINT  ;   // # video buffers, If 0, autocalc
        fCaptureAudio               : BOOL  ;   // Capture audio?
        wNumAudioRequested          : UINT  ;   // # audio buffers, If 0, autocalc
        vKeyAbort                   : UINT  ;   // Virtual key causing abort
        fAbortLeftMouse             : BOOL  ;   // Abort on left mouse?
        fAbortRightMouse            : BOOL  ;   // Abort on right mouse?
        fLimitEnabled               : BOOL  ;   // Use wTimeLimit?
        wTimeLimit                  : UINT  ;   // Seconds to capture
        fMCIControl                 : BOOL  ;   // Use MCI video source?
        fStepMCIDevice              : BOOL  ;   // Step MCI device?
        dwMCIStartTime              : DWORD ;   // Time to start in MS
        dwMCIStopTime               : DWORD ;   // Time to stop in MS
        fStepCaptureAt2x            : BOOL  ;   // Perform spatial averaging 2x
        wStepCaptureAverageFrames   : UINT  ;   // Temporal average n Frames
        dwAudioBufferSize           : DWORD ;   // Size of audio bufs (0 = default)
        fDisableWriteCache          : BOOL  ;   // Attempt to disable write cache
        AVStreamMaster              : UINT  ;   // Which stream controls length?
    end;

function capCreateCaptureWindowA(lpszWindowName : PCHAR;
                                 dwStyle : longint;
                                 x : integer;
                                 y : integer;
                                 nWidth : integer;
                                 nHeight : integer;
                                 ParentWin  : HWND;
                                 nId : integer): HWND;
                                 STDCALL; EXTERNAL 'AVICAP32.DLL';

hWndC := capCreateCaptureWindowA('My Own Capture Window',
                                   WS_CHILD or WS_VISIBLE ,
                                   Panel1.Left,
                                   Panel1.Top,
                                   Panel1.Width,
                                   Panel1.Height,
                                   Form1.Handle,
                                   0);
 
      SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0);

var
   szName: PAnsiChar;
   CaptureParms1: CAPTUREPARMS;
   Frame: LongBool;
  
begin
   szName:='New.avi'; //Место сохранения
 
    SendMessage (hWndC, WM_CAP_GET_SEQUENCE_SETUP, SizeOf(CAPTUREPARMS), Lparam ( CaptureParms1));//Считываем настройки
 
 
 CAPTUREPARMS1.fYield:= true;     //Изменяем настройку
 
 
 SendMessage (hWndC, WM_CAP_SET_SEQUENCE_SETUP, SizeOf(CaptureParms), Lparam (CaptureParms1)); //Отправляем
 
 
 
 
      SendMessage(hWndC, WM_CAP_SEQUENCE, 0, 0);
 
    SendMessage(hWndC,WM_CAP_FILE_SAVEAS, 0, Lparam(szName));
 
end;

SendMessage(hWndC, WM_CAP_GET_SEQUENCE_SETUP, SizeOf(CaptureParms1), LParam(@CaptureParms1));
CaptureParms1.fYield := True;
SendMessage(hWndC, WM_CAP_SET_SEQUENCE_SETUP, SizeOf(CaptureParms1), LParam(@CaptureParms1));

procedure TForm1.Button1Click(Sender: TObject);
  var
   szName: PAnsiChar;
   CaptureParms1: CAPTUREPARMS;
   Frame: LongBool;
begin
Hwndc := capCreateCaptureWindowA('My Own Capture Window',
                                   WS_CHILD or WS_VISIBLE ,
                                   Panel1.Left,
                                   Panel1.Top,
                                   Panel1.Width,
                                   Panel1.Height,
                                   Form1.Handle,
                                   0);
 
  SendMessage(Hwndc,WM_CAP_DRIVER_CONNECT,0,0);
 
  szName:= 'New.avi';
 
  SendMessage(Hwndc,WM_CAP_GET_SEQUENCE_SETUP, SizeOf(captureparms1), Lparam(@captureParms1));
  CaptureParms1.fYield:= True;
  SendMessage(Hwndc, WM_CAP_SET_SEQUENCE_SETUP, SizeOf(CaptureParms1), Lparam(@captureParms1));
 
  SendMessage(Hwndc, WM_CAP_SEQUENCE,0,0);
  SendMessage(Hwndc,WM_CAP_FILE_SAVEAS,0,Lparam(szName));
 
end;

 
if  CaptureParms1.fYield= True then
  begin
    Memo1.Lines.Add('1');
  end else
  begin
   Memo1.Lines.Add('0');
  end;
 
  if  CaptureParms1.fAbortLeftMouse= True then
  begin
    Memo1.Lines.Add('Mouse 1');
  end else
  begin
   Memo1.Lines.Add('Mouse 0');
  end;

PostMessage(Hwndc, WM_CAP_SEQUENCE,0,0);

type CAPTUREPARMS                   = ^TCAPTUREPARMS;
    TCAPTUREPARMS                   = record
        dwRequestMicroSecPerFrame   : DWORD ;   // Requested capture rate
        fMakeUserHitOKToCapture     : BOOL  ;   // Show "Hit OK to cap" dlg?
        wPercentDropForError        : UINT  ;   // Give error msg if > (10%)
        fYield                      : BOOL  ;   // Capture via background task?
        dwIndexSize                 : DWORD ;   // Max index size in frames (32K)
        wChunkGranularity           : UINT  ;   // Junk chunk granularity (2K)
        fUsingDOSMemory             : BOOL  ;   // Use DOS buffers?
        wNumVideoRequested          : UINT  ;   // # video buffers, If 0, autocalc
        fCaptureAudio               : BOOL  ;   // Capture audio?
        wNumAudioRequested          : UINT  ;   // # audio buffers, If 0, autocalc
        vKeyAbort                   : UINT  ;   // Virtual key causing abort
        fAbortLeftMouse             : BOOL  ;   // Abort on left mouse?
        fAbortRightMouse            : BOOL  ;   // Abort on right mouse?
        fLimitEnabled               : BOOL  ;   // Use wTimeLimit?
        wTimeLimit                  : UINT  ;   // Seconds to capture
        fMCIControl                 : BOOL  ;   // Use MCI video source?
        fStepMCIDevice              : BOOL  ;   // Step MCI device?
        dwMCIStartTime              : DWORD ;   // Time to start in MS
        dwMCIStopTime               : DWORD ;   // Time to stop in MS
        fStepCaptureAt2x            : BOOL  ;   // Perform spatial averaging 2x
        wStepCaptureAverageFrames   : UINT  ;   // Temporal average n Frames
        dwAudioBufferSize           : DWORD ;   // Size of audio bufs (0 = default)
        fDisableWriteCache          : BOOL  ;   // Attempt to disable write cache
        AVStreamMaster              : UINT  ;   // Which stream controls length?
    end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Hwndc : THandle;
    { Public declarations }
  end;
 
type CAPTUREPARMS                   = ^TCAPTUREPARMS;
    TCAPTUREPARMS                   = record
        dwRequestMicroSecPerFrame   : DWORD ;   // Requested capture rate
        fMakeUserHitOKToCapture     : BOOL  ;   // Show "Hit OK to cap" dlg?
        wPercentDropForError        : UINT  ;   // Give error msg if > (10%)
        fYield                      : BOOL  ;   // Capture via background task?
        dwIndexSize                 : DWORD ;   // Max index size in frames (32K)
        wChunkGranularity           : UINT  ;   // Junk chunk granularity (2K)
        fUsingDOSMemory             : BOOL  ;   // Use DOS buffers?
        wNumVideoRequested          : UINT  ;   // # video buffers, If 0, autocalc
        fCaptureAudio               : BOOL  ;   // Capture audio?
        wNumAudioRequested          : UINT  ;   // # audio buffers, If 0, autocalc
        vKeyAbort                   : UINT  ;   // Virtual key causing abort
        fAbortLeftMouse             : BOOL  ;   // Abort on left mouse?
        fAbortRightMouse            : BOOL  ;   // Abort on right mouse?
        fLimitEnabled               : BOOL  ;   // Use wTimeLimit?
        wTimeLimit                  : UINT  ;   // Seconds to capture
        fMCIControl                 : BOOL  ;   // Use MCI video source?
        fStepMCIDevice              : BOOL  ;   // Step MCI device?
        dwMCIStartTime              : DWORD ;   // Time to start in MS
        dwMCIStopTime               : DWORD ;   // Time to stop in MS
        fStepCaptureAt2x            : BOOL  ;   // Perform spatial averaging 2x
        wStepCaptureAverageFrames   : UINT  ;   // Temporal average n Frames
        dwAudioBufferSize           : DWORD ;   // Size of audio bufs (0 = default)
        fDisableWriteCache          : BOOL  ;   // Attempt to disable write cache
        AVStreamMaster              : UINT  ;   // Which stream controls length?
 
 
    end;
 
 
 
 
var
  Form1: TForm1;
 
 
 
  const
   WM_CAP_START                  = WM_USER;
   WM_CAP_SEQUENCE               = WM_CAP_START + 62;
   WM_CAP_DRIVER_CONNECT         = WM_CAP_START + 10;
   WM_CAP_SEQUENCE_NOFILE        = WM_CAP_START + 63;
   WM_CAP_FILE_SAVEAS            = WM_CAP_START + 23;
   WM_CAP_SET_SEQUENCE_SETUP     = WM_CAP_START + 64;
   WM_CAP_GET_SEQUENCE_SETUP     = WM_CAP_START + 65;
   WM_CAP_DRIVER_GET_CAPS        = WM_CAP_START + 14;
   WM_CAP_SET_CALLBACK_YIELD     = WM_CAP_START + 4;
   WM_CAP_FILE_SET_CAPTURE_FILE  = WM_CAP_START + 20;
implementation
 
{$R *.dfm}
{******************************************************************************}
//Библиотека
 function capCreateCaptureWindowA(lpszWindowName : PCHAR;
                                 dwStyle : longint;
                                 x : integer;
                                 y : integer;
                                 nWidth : integer;
                                 nHeight : integer;
                                 ParentWin  : HWND;
                                 nId : integer): HWND;
                                 STDCALL; EXTERNAL 'AVICAP32.DLL';
 
 
 
 
{******************************************************************************}
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
  var
   szName: PAnsiChar;
   CaptureParms1: CAPTUREPARMS;
 
begin
Hwndc := capCreateCaptureWindowA('My Own Capture Window',
                                   WS_CHILD or WS_VISIBLE ,
                                   Panel1.Left,
                                   Panel1.Top,
                                   Panel1.Width,
                                   Panel1.Height,
                                   Form1.Handle,
                                   0);
 
  SendMessage(Hwndc,WM_CAP_DRIVER_CONNECT,0,0);
 
  szName:= 'New.avi';
 
  SendMessage(Hwndc, WM_CAP_GET_SEQUENCE_SETUP, SizeOf(captureparms1), Lparam(@captureParms1));
   if  CaptureParms1.fYield= True then
  begin
    Memo1.Lines.Add('1');
  end else
  begin
   Memo1.Lines.Add('0');
  end;
 
  if  CaptureParms1.fAbortLeftMouse= True then
  begin
    Memo1.Lines.Add('Mouse 1');
  end else
  begin
   Memo1.Lines.Add('Mouse 0');
  end;
  CaptureParms1.fYield:= True;
  CaptureParms1.fAbortLeftMouse:= False;
  SendMessage(Hwndc, WM_CAP_SET_SEQUENCE_SETUP, SizeOf(CaptureParms1), Lparam(@captureParms1));
 
  SendMessage(Hwndc,WM_CAP_FILE_SET_CAPTURE_FILE,0,Lparam(szName));
  PostMessage(Hwndc, WM_CAP_SEQUENCE,0,0);
  //SendMessage(Hwndc,WM_CAP_FILE_SAVEAS,0,Lparam(szName));
 
  SendMessage(Hwndc, WM_CAP_GET_SEQUENCE_SETUP, SizeOf(captureparms1), Lparam(@captureParms1));
  if  CaptureParms1.fYield= True then
  begin
    Memo1.Lines.Add('1');
  end else
  begin
   Memo1.Lines.Add('0');
  end;
 
  if  CaptureParms1.fAbortLeftMouse= True then
  begin
    Memo1.Lines.Add('Mouse 1');
  end else
  begin
   Memo1.Lines.Add('Mouse 0');
  end;
end;
 
end.

SendMessage(Hwndc, WM_CAP_GET_SEQUENCE_SETUP, SizeOf(captureparms1), Lparam(@captureParms1));

type CAPTUREPARMS                   = ^TCAPTUREPARMS;
    TCAPTUREPARMS                   = record