procedure TForm1.Button1Click(Sender: TObject);
begin
　//データの追加
　Table1.Close;
　AS4001.RemoteCmd('CPYF FROMFILE(CUSTOMER)
　TOFILE(' + FLIb + '/' + FFile + ') MBROPT(*REPLACE)');
　Table1.Open;

　//レコード数表示の消去
　Edit1.Text := '';

end;