procedure TForm1.FormCreate(Sender: TObject);
var
　IniFile : TMemIniFile;
begin
　//AS/400との接続
　AS4001.Userid := 'QPGMR';
　AS4001.PWD := 'QPGMR';
　AS4001.Active := True;
　//iniファイルからのライブラリー名・ファイル名の取得
　IniFile := TMemIniFile.Create('D400.ini'); //iniファイル作成
　FLib := IniFile.ReadString('D400','LIB',''); //iniファイルからLIB項目取得
　FFile := IniFile.ReadString('D400','FILE',''); //iniファイルからFile項目取得
//iniファイルの開放
　IniFile.Free;
　//DataBase設定
　Database1.Params.Values['LIBRARY NAME'] := FLib;
　//Table設定
　Table1.TableName := FFile;
end;