procedure TForm1.Button2Click(Sender: TObject);
begin
　//レコード数の表示
　Cmd4001.CommandLine.Text := 'RTVMBRD FILE(' + FLIb +
　　　　　　　　　　　　　　　'/' + FFile + ') NBRCURRCD(&P.1)';
　Cmd4001.Execute;
　//レコード数表示の設定
　Edit1.Text := Cmd4001.Value[0];

end;